1:
2:
3:
4:

const
   QuricolLib = 'quricol32.dll';
...
function GetHBitmap(Text : PChar;  Margin : integer; Size : integer; Level : integer) : HBITMAP; stdcall; external QuricolLib name 'GetHBitmapA';                    

1:
2:

const
   QuricolLib = 'dlls\quricol32.dll';                    

1:
2:
3:

var QuricolLib, ordner : string;
...
  QuricolLib := ordner+'quricol32.dll';                    

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:
33:
34:

unit DeineUnit;

type
  TGetHBitmap = function(Text: PChar; Margin, Size, Level: integer): HBITMAP; stdcall;
  
const
  QURICOLLIB = 'dlls\quricol32.dll';          
   
var
  DLLHandle: THandle;
  GetHBitmap: TGetHBitmap;
  
...
  
function Irgendwas: HBITMAP;
begin
  if Assigned(GetHBitmap) then
    Result := GetHBitmap(...)
  else
    Result := 0;
end; 
   
...

initialization
  DLLHandle = LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + QURICOLLIB));
  if DLLHandle <> 0 then
    GetHBitmap := GetProcAddress(DLLHandle, {$IFDEF UNICODE}'GetHBitmapW'{$ELSE}'GetHBitmapA'{$ENDIF});
    
finalization
  if DLLHandle <> 0 then
    FreeLibrary(DLLHandle);

end.                    

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

procedure TForm1.FormCreate(Sender: TObject);
var QuricolLib, s :String;  hLib : Cardinal;
begin
QuricolLib := ExtractFilePath(Application.ExeName)+'dlls\quricol32.dll';
hLib := LoadLibrary(PWIDECHAR(QuricolLib));
if hLib = 0 then
  begin
    s := SysErrorMessage(GetLastError());
    ShowMessage(s);
  end;
//nur zum Testen
Memo1.lines.add(ExtractFilePath(Application.ExeName)+'DLLS');
Memo1.lines.add(QuricolLib);
end;