uses
 ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 Icon: hIcon;
 IconIndex: word;
begin
 IconIndex := 1;
 Icon := ExtractAssociatedIcon(HInstance,
 Application.ExeName, IconIndex);
 DrawIcon(Canvas.Handle, 10, 10, Icon);
end;