[решено] Проблемы при создании объекта TImage из программы (не показывается рисунок)

[Dock1100]

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

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

[Serega]

но есть одна проблема: Рисунок не виден »
Необходимо указать 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;

[Dock1100]

Помогло спасибо.