[Gareth]

Здравствуйте, на форме есть компонент Image в него загружается иконка программы...
По нажатию на Image, открывается программа но иконка программы пропадает.
Почему так получается? Как заставить не исчезать иконку, что делаю не так? Скажите пожалуйста!
Вот код:

Код:

var
  Form1: TForm1;
  S:string;
....
....
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);
DrawIcon(Canvas.Handle ,0, 0, h);
end;
end;


procedure TForm1.img1Click(Sender: TObject);
begin
  if S='' then
  ShowMessage('бла бла бла...')
  else
ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE);
end;