[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;