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

procedure TMainControl.FormShow(Sender: TObject);                               
var                                        
   hDLL : THandle;                                               
begin                                                                 
   hDLL := LoadLibrary(PChar('ressource.dll'));     
   if hDLL <> 0 then begin
     try                            
       postbasket.Glyph.LoadFromResourceName(hDLL,'postkorb');       
       Search.Glyph.LoadFromResourceName(hDLL,'suchen'); 
       configuration.Glyph.LoadFromResourceName(hDLL,'configuration');
       useradministration.Glyph.LoadFromResourceName(hDLL,'useradmin');
       beenden.Glyph.LoadFromResourceName(hDLL,'beenden');  
     finally  
       FreeLibrary(hDLL);  
     end;  
   end;    
end;					

1:

postbasket.Glyph.LoadFromResourceName(hDLL,'postkorb');					

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

function TForm1.GetStringFromRes(iID: Integer) : string;
var
  iCnt   : Integer;
  szText : array[0..29] of Char;
begin
  iCnt := LoadString(hDLL, iID, szText, SizeOf(szText)-1);
  if iCnt > 0 then GetStringFromRes := StrPas(szText)
              else GetStringFromRes := 'Kein Eintrag!';
end;