1:

    _x2:=6; _x1:=-6; _y2:=5; _y1:=-5;                    

1:
2:
3:
4:

    lclear;
    lwriteln(edit1.text);   //z.B. edit1.text ist X*SIN(X)
    lwriteln(edit2.text);   //z.B. edit2.text ist X^2+X-1    usw.
    fgraf.showmodal;                    

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

 procedure UserForm(appHandle:THandle); stdcall; external 'GRAFDLL.DLL';
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
    UserForm(Application.Handle);
end;                    

1:

  @DLLProc:=SaveExit;                    

1:

canvas.brush.style:=bssolid;                    

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)                    

1:

Zeilenzahl := Memo.height div Memo.font.size                    

1:

Zeilenzahl := Memo.height div (Memo.font.size + abstand)                    

1:

Memo.lines.assign(ergebnisliste)                    

1:

mergebnis.clientheight div (mergebnis.font.size+5)                    

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

const
  WM_AFTERSHOW = WM_USER + 1454;

type
  TMyForm = class(TForm)
  protected
    procedure WmAfterShow(var Msg: TMessage); message WM_AFTERSHOW;
  end;

// ...

procedure TMyForm.WmAfterShow(var Msg: TMessage);
begin
  // tu was nach dem Start
end;

// und in FormShow:
PostMessage(Handle, WM_AFTERSHOW, 0, 0);                    

1:
2:
3:
4:
5:

SQR SQRT ABS INT SGN FRAC HEAVISIDE
EXP LN LG LD
SIN COS TAN COT SEC CSC ARCSIN ARCCOS ARCTAN ARCCOT ARCSEC
SINH COSH TANH ARSINH ARCOSH ARTANH 
GAMMA GAUSS DIGAMMA