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;