1:
2:
3:

  TPaintIt      = Procedure (DC:HDC;grafbx,grafhx:Integer;realwerte:trealwerte;maskex:tmaske);
  TSetFormulas  = Procedure (Text:PAnsiChar);
  TListeleer    = Procedure ();					

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

procedure Tfgraf.FormCreate(Sender: TObject);
var
 dll:String;
begin
  dll := ExtractFilePath(ParamStr(0)) + C_DLL;
  if FileExists(dll) then
    begin
        FDLLHandle := LoadLibrary(Pchar(dll));
        if FDLLHandle <> 0 then
          begin
            @FPaintIt:=GetProcAddress(FDLLHandle,'PaintIt');
            @FSetFormulas:=GetProcAddress(FDLLHandle,'SetFormulas');
            @FListeleer:=GetProcAddress(FDLLHandle,'Listeleer');
            Button1Click(nil);
          end;
    end;
end;					

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

{$mode objfpc}{$H+}//dann muß bei GetProcAddress mit Pointern operiert werden
//{$mode DELPHI}{$H+}

...

function GetEntyPoints:boolean;
var lib:THandle;
begin
result:=true;
lib:=Loadlibrary('advapi32');
if lib=0 then result:=false
else
  begin
  Pointer(MyGetSecurityInfo):=GetProcAddress(lib,'GetSecurityInfo');
  if not assigned(MyGetSecurityInfo) then result:=false;
  Pointer(MyConvertSidToStringSid):=GetProcAddress(lib,'ConvertSidToStringSidA');
  if not assigned(MyConvertSidToStringSid) then result:=false;
  Pointer(MyConvertStringSidToSid):=GetProcAddress(lib,'ConvertStringSidToSidA');
  if not assigned(MyConvertStringSidToSid) then result:=false
  end;
FreeLibrary(lib)
end;					

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

X(s) = Laplace(x(t)) = 5 / (s^2 + 5^2)  + 3 * 1 / (s-1)

Integration ist Xs(s) = 1/s*X(s), also:
Xs(s) = 5 / (s^3 + s*5^2)  + 3 * 1 / (s^2-s)

Zusammengefasst nach s:
Xs(s) = -1/5 * s / (s^2+25) + 3 * 1/(s-1) - 14/5 * 1/s      [Sagt Wolfram Alpha]

Nimmt man wieder die Korrespondenzen, diesmal in die andere Richtung:
xs(t) = -1/5 * cos(5*t) + 3 * e^t - 14/5 * sigma(t)