Аз го правя така:

procedure TfmMain.ShowImage(ImageName:String; ImageStr:TMemoryStream; var Image:TImage);

var

  Graphic:TGraphic;

  ImageType:String;

begin

  if ImageStr.Size <= 1 then

    Exit;

  try

    ImageType := UPPERCase(ExtractFileExt(ImageName));

    if (ImageType = '.JPG') OR (ImageType = '.JPEG') then

      Graphic := TJpegImage.Create;

    ImageStr.Position := 0;

    Graphic.LoadFromStream(ImageStr);

    Image.Picture.Assign(Graphic);

  finally

    Graphic.Free;

  end;

end;

Редактирано от AquilaX на 01.10.04 18:35.