[NumLock]

используй магию! вместо статичного имени файла подставь из диалога:

Код:

Image1.Picture.Icon.Handle:=ExtractIcon(0, PChar(OpenDialog1.FileName), 0);