Hvordan bruger man Initialization i en dll?

Hej,

Er der nogle gode og simple eksempler på hvordan man kan bruge  initialization i en dll til at sætte nogle variable værdier som skal værre konstant under hele dll'ens leve tid?

Jeg vil helst undgå at sende alle konstante variabler hver gang jeg laver en beregning. Eller skal jeg hver gang kalder sende en pointer til en record som så bruges i dll'en?

Jeg har følgende dll:

library dll;

uses
  SysUtils,
  Classes;

{$R *.res}

function Score(seq:pchar):real;export;
var
I:integer;
begin
score:=length(seq);
end;

exports
score;
begin
end.

Som jeg kalder med:

procedure TForm1.Button1Click(Sender: TObject);
begin
DLLHandle := LoadLibrary('dll.dll');
//her vil jeg godt have sat nogle variabler som er konstante
if DLLHandle <> 0 then
begin
@ShowScore :=GetProcAddress(DLLHandle, 'Score');
memo1.Lines.Add(floattostr(Showscore(PChar(edit1.text))));
end;
FreeLibrary(DLLHandle);
end;

mvh,

Rune