Не хочет работать OpenPictureDialog

[guffer]

Почему код не работает(причина в последней стоке)

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Form1.Height:= 100;
Form1.Width:= 100;
image1.Height:= 100;
image1.Width:= 100;
OpenPictureDialog1.Execute;
openpicturedialog1.Filter:= '*.jpg';
openpicturedialog1.FileName:= '901.jpg';
Image1.Picture:=Openpicturedialog1.filename;//в этой строке причина
end;

[Kotofff]

Во-первых, неправильное использование самого диалога (ИМХО).
Во-вторых, не то что там написано, а вот так :

Image1.Picture.LoadFromFile(Openpicturedialog1.filename);

[goblinyara]

а собственно зачем вам здесь OpenPictureDialog, если вы всё равно меняете файл на свой?

[guffer]

Просто я в Delphi новичок,опыт всего месяц.Спасибо,выручили.

[DomiNick]

OpenPictureDialog1.Execute;
openpicturedialog1.Filter:= '*.jpg';
openpicturedialog1.FileName:= '901.jpg';

Странный код... Сначала вы его вызываете, только потом устанавливаете фильтр, а дальше вовсе изменяете выбранный файл на свой... %)

Может просто так делать:

Image1.Picture.LoadFromFile('901.jpg');