Danke für eure hilfe die idee mit dem memorystream war gut hier meine lösung:
Delphi-Quellcode:
...
var
pic:Tbitmap;
picj:Tjpegimage;
str:Tmemorystream;
...
//Objekte erstellen
pic:=tbitmap.Create;
str:=tmemorystream.Create;
picj:=TJPEGImage.Create;
picj.CompressionQuality:=100;
try
//Bild auslesen und in jpg umwandeln
imagelist1.GetBitmap(strtoint(jvlistview1.Items.Item[strtoint(trim(Arequestinfo.Params.Text))].SubItems[1])-1,pic);
picj.Assign(pic);
picj.SaveToStream(str);
//ImageHeader und bild übergeben
AResponseInfo.ContentType:='image/jpeg';
AResponseInfo.ContentStream:=str;
finally
//FREEEEE!!!einself
pic.Free
str.Free
picj.Free
end;