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:

uses ShellApi;

function IconFromFile(const Filename: String; IconNr: Word): HICON;
var
  buffer: array[0..2*MAX_PATH]of Char;
begin
  StrPCopy(buffer, Filename);
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TempIcon: HICON;
  Icon:TIcon;
begin
  if OpenDialog1.Execute then begin
    //Icon holen
    TempIcon := IconFromFile(OpenDialog1.FileName,0);
    //Prüfen ob gefunden
    if (TempIcon <> 0) then
    begin
      //In Datei speichern
      Icon:=TIcon.Create;
      Try
        Icon.Handle := TempIcon;
        Icon.SaveToFile('c:\Merke.ico');
      Finally
        Icon.Free;
      End;
    end;
  End;
End;                    

1:
2:

  iconhandle := GetClassLong(fensterhandle, GCL_HICON);   
  DrawIconEx(Glyph.Canvas.Handle,5,5,iconHandle,16,16,0,0,DI_NORMAL);