procedure TIconShow.FileListBox1Click(Sender: TObject);
var

 MyIcon: TIcon;
 MyBitMap: TBitmap;
begin

 MyIcon := TIcon.Create;
 MyBitMap := TBitmap.Create;

 try
 { получаем имя файла и связанную с ним иконку}
 strFileName := FileListBox1.Items[FileListBox1.ItemIndex];
 StrPCopy(cStrFileName, strFileName);
 MyIcon.Handle := ExtractIcon(hInstance, cStrFileName, 0);

 { рисуем иконку на bitmap в speedbutton }
 SpeedButton1.Glyph := MyBitMap;
 SpeedButton1.Glyph.Width := MyIcon.Width;
 SpeedButton1.Glyph.Height := MyIcon.Height;
 SpeedButton1.Glyph.Canvas.Draw(0, 0, MyIcon);

 SpeedButton1.Hint := strFileName;

 finally
 MyIcon.Free;
 MyBitMap.Free;
 end;
end;