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

Dock1100 · 22.11.2009

Написал код для создания обекта 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 · 23.11.2009

Уже не надо нашол проблему.
Необходимо указать 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;