1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

var
  Form1: TForm1;
  img: TImage;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var hIcon: THandle;
    AppName: String;
begin
 AppName := ExtractFilename(PARAMSTR(0)); // z.b. 'C:\Windows\System32\mspaint.exe';
 hIcon := ExtractIcon(hInstance, PChar(AppName), 0);
 with img do begin
  parent  := Button1;
  name    := 'img';
  width   := 32;
  height  := 32;
  top     := (Button1.Height div 2) - (img.Height div 2);
  left    := (Button1.Width div 2) - (img.Width div 2);
  img.Picture.Icon.Handle := hIcon;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 img := TImage.Create(Button1);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 img.Free;
end;

end.