var  
Image: TJPEGImage;  
Format: word;  
Data: THandle;  
Palette: HPalette;  
if ImageType = 'JPG' then begin  
Image:= TJPEGImage.Create;  
Image.LoadFromStream(ImageStream);  
Image.DIBNeeded;  
Image.SaveToClipboardFormat(Format, Data, Palette);  
Image.Free;  
Bitmap.LoadFromClipboardFormat(Format, Data, Palette);  
end;