[Gareth]

Здравствуйте!
На форме есть Image1, по его нажатию (если картинки нет) открывается opendialog1, после выбора файла, в Image1 появляется иконка выбранного файла. Теперь, если еще раз нажать, этот файл запустится!
Вот собсно код:

Код:

  Form1: TForm1;
  S:string;
  H:HICON;
  iconindex:Word;

implementation
...... ... ....

if S='' then
  begin
  sOpenDialog1.Execute;
  S:=sOpenDialog1.FileName;
  IconIndex := 1;
  if S='' then
  begin
    ShowMessage('Ничего не выбрано');
  end
  else
  h := ExtractAssociatedIcon(hInstance,PChar(S), IconINdex);
  img1.Picture.Icon.Handle := H;
  img1.Picture.Graphic := img1.Picture.Icon;
  end
  else
ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE)

Я хочу переделать его под кнопку Bitbtn, без компонентов Image1. Что бы в него загружалась та самая иконка. Помогите пожалуйста переделать.