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
;