extraer un icono

[Investment]

Eso es otra cosa.
OK.
Puedes añadir un Timage a tu formulario y capturar en el el icono que quieres para tu boton:

procedure TForm1.FormCreate(Sender: TObject);
var
   Icono:TIcon;
   Indice:word;
begin
  Icono:=TIcon.Create;
  Indice:=0;
  Icono.handle:=ExtractAssociatedIcon(hInstance,
                Pchar('C:\DESARROLLO\unit1.pas'),Indice);
  Image1.Picture.Bitmap.Width:= Icono.Width;
  Image1.Picture.Bitmap.Height:= Icono.Height;
  Image1.Picture.Bitmap.Canvas.Draw(0,0,Icono);
  Icono.Free;
  //Le das el icono al boton. 
  Boton.Glyph:= Image1.Picture.Bitmap;
end;

No te olvides de añadir ShellApi en tu uses