Wop!
Pues no estoy muy seguro porque no lo he podido probar... pero yo diría que ha de ser algo parecido a esto. Ya me dirás qué tal
Código Delphi
[-]
procedure CargaImagen(p: pointer; Tamanyo: Integer; AImage: TImage)
var
Str: TMemoryStream;
begin
Str := TMemoryStream.Create;
try
Str.Write(p, Tamanyo);
AImage.Picture.Bitmap.LoadFromStream(Str);
finally
Str.Free;
end;
end;