1:
2:
3:
4:
5:
6:
7:

 function LoadIconFromRessourceName(RessourceName: string): TIcon; 
 begin 
      Result := TIcon.Create; 
      Extract(RessourceName, '\qwertz.ico'); 
      Result.LoadFromFile('\qwertz.ico'); 
      DeleteFile('\qwertz.ico'); 
 end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 function Extract(Resourcename, FileName: string): Boolean; 
 var MyRessource: TResourceStream; 
 begin 
      Result := True; 
      try 
         MyRessource := TResourceStream.Create(hInstance, Resourcename, 'RT_RCDATA'); 
         try 
            MyRessource.SaveToFile(Filename); 
         finally 
                MyRessource.Free; 
         end; 
      except 
            on E: Exception do 
               begin 
                    Result := False; 
                    ShowMessage(E.Message); 
               end; 
      end; 
 end;