So hole ich mir zur Laufzeit Icons aus der Resource:
Delphi-Quellcode:
{$R MYICONS.RES}
procedure TForm1.Button1Click(Sender: TObject);
var
h : hIcon;
begin
h := LoadIcon(hInstance, 'ICON_1');
Application.Icon.Handle := h;
InvalidateRect(Application.Handle, nil, true);
end;