function LoadPicture(aStr: Ansistring; var aPicture: TPicture): boolean;
  var tmpStrm: TMemoryStream;
      tmpStr: Ansistring;
begin
  // В aStr может быть '0;AASD47474', '0;', поэтому
  tmpLen:= Length(aStr);
  tmpStr:= aStr;
  if ((tmpLen>2) and (tmpStr[1] = '0') and (tmpStr[2] = ';')) then
     tmpStr:= Copy(zStr, 3, tmpLen-2);

  result:= false;
  tmpStrm:= TMemoryStream.Create;
  try
    tmpStrm.WriteBuffer(tmpStr, Length(tmpStr));
    tmpStrm.Position:= 0;
    aPicture.Bitmap.LoadFromStream(tmpStrm);// здесь вылетает с Stream read error
  finally
    tmpStrm.Free;
  end;  
  result:= true;
end;