По поводу Timage и потоков

[SARGE]

Как сделать это для jpg:

stream := TMemoryStream.Create;
    ReadStream(stream);
    stream.Position := 0;
image.Picture.Bitmap.LoadFromStream(stream);

Не работает:

stream := TMemoryStream.Create;
    ReadStream(stream);
    stream.Position := 0;
image.Picture.JPEGImage.LoadFromStream(stream);

Не катит:

stream.SaveToFile('23.jpg');
image.Picture.LoadFromFile('23.jpg');

[Пепел Феникса]

var P:TJPEGImage;
begin
stream := TMemoryStream.Create;
ReadStream(stream);
stream.Position := 0;
P:=TJPEGImage.LoadFromStream(stream);
Image.Picture.Bitmap.Assign(P);
P.free;

попробуйте так.

[SARGE]

Не робит сам уже пробовал

[SARGE]

Всё допёрло

var P:TJPEGImage;
begin
 stream := TMemoryStream.Create;
 ReadStream(stream);
 stream.Position := 0;
 P:= TJpegImage.Create;
 P.LoadFromStream(stream);
 Image.Picture.Bitmap.Assign(P);
 P.free;