[Gareth]

Сообщение от lmikle

иконка пропадает, т.к. теряется после отрисовки.
Тебе надо сохранить эту иконку, что бы потом, при следующий перерисовке формы она отрисовалась.
Можно попробовать так:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
var H:HICON;
IconIndex:Word;
begin
if sopendialog1.Execute then
begin
  S:=sopendialog1.FileName;
  IconIndex := 1;
  h := ExtractAssociatedIcon(hInstance,PChar(S), IconINdex);
  image1.Picture.Icon.Handle := h;
  image1.Picture.Graphic := image1.Picture.Icon;
end;
end;

Спасибо большое! Помогло.