[NumLock]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AutoSize:=True;
  Image1.AutoSize:=True;
  Image1.Picture.LoadFromFile('d:\Картинки\Разное\apple.bmp');
end;