TIcon.Handle readonly progleme

[day]

hallo,
Ich habe folgendes problem. Die variable Handle ist als readonly deklariert. Wie kann ich den handle des icons dem TIcon zuweisen?

Delphi-Quellcode:

Var
  w: Integer;
  Icon: TIcon; 
  IcoHandle: HIcon;

Begin
  // memchk;
  Icon := TIcon.Create; 
  Try 
    IcoHandle:= ExtractIcon(hinstance, pchar(paramstr(0)), 0); 
    Icon.Handle := IcoHandle;
    Application.Icon.Assign(Icon); 
  Finally 
    Icon.Free; 
  End;