Hola nickolas.
En principio, estas haciendo mal la creación del
TImage y la asignación del
TBitmap a la misma.
Un ejemplo:
Código Delphi
[-]
...
procedure CrearComponente(aForm: TForm; Bitmap: TBitmap;
const aLeft,aTop: Integer);
var
Fondo:Timage;
begin
Fondo:= TImage.Create(aForm);
with Fondo do
begin
Parent:= aForm;
Left := aLeft;
Top := aTop;
Picture.Bitmap.Assign(Bitmap);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
BM: TBitmap;
begin
BM:= TBitmap.Create;
try
BM.LoadFromFile('C:\Users\User\Pictures\LogoRad.bmp');
CrearComponente(Form1, BM, 15, 25);
finally
BM.Free;
end;
end;
Saludos.