Проблемы при создании обекта Timage из программы

[Dock1100]

Написал код для создания обекта Timage из программы но есть одна проблема Рисунок не виден хотя при компиляции ошибок нету, помогите.

procedure TForm1.Button1Click(Sender: TObject);
var ima:Timage;
begin
ima:=TImage.Create(Form1);
ima.Top:=50;
ima.Left:=50;
ima.Picture.LoadFromFile('D:\1.bmp');
ima.Visible:=true;
ima.Height:=20;
ima.Width:=20;
end;

 

[Dock1100]

Уже не надо нашол проблему.
Необходимо указать Parent, т.е.:

procedure TForm1.Button1Click(Sender: TObject);
var
img: TImage;
begin
img:= TImage.Create(Form1);
with img do
begin
SetBounds(50, 50, 20, 20);
Picture.LoadFromFile('D:\1.bmp');
Proportional:= True;
Parent:= Form1;
end;
end;