[Gareth]

Poli-smen, Alegun спасибо Вам огромное!!!

Сделал то что я хотел

Код:

var
  Form1: TForm1;
     S:string;

..... ....

procedure TForm1.sSpeedButton1Click(Sender: TObject);

var
   Icon : TIcon;
   Pch: array[0..256] of Char;
   IconIndex: Word;
begin
  if S='' then   // если переменная пуста
    begin
       sOpenDialog1.Execute; //открыть опен-диалог
       S:=sOpenDialog1.FileName;   //переменная равна выбранному файлу
        if S='' then               // если переменная по прежнему пуста
        begin
               sSpeedButton1.Glyph:=nil;
          ShowMessage('Ничего не выбрано');
        end
        else

         sSpeedButton1.Glyph:=nil;
         Icon:=TIcon.Create;
         StrPCopy(Pch,S);
         Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);
         sSpeedButton1.Glyph.Width:= Icon.Width;
         sSpeedButton1.Glyph.Height:= Icon.Height;
         sSpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);
         Icon.Free;
 
      end
      else
          begin
          sPanel1.Caption:=S;
          ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE);
          end;
 end;

Еще раз спасибо!!