Funktionen

Eine Funktion ist eine Prozedur, die einen Wert zurückgibt (hier im Quelltext rot hervorgehoben).
Es muss angegeben werden, welchen Typ der zurückgegebene Wert hat (hier Integer).
In der Funktion wird der Wert zurückgegeben, indem man auf den Namen der Funktion eine Wertzuweisung macht.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edZahlen: TEdit;
    btOK: TButton;
    procedure btOKClick(Sender: TObject);
  private
    { Private-Deklarationen }

    function meineFunktion: Integer;

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.meineFunktion: Integer;
begin
  meineFunktion := 5;          // der Wert 5 wird zurückgegeben
end;

procedure TForm1.btOKClick(Sender: TObject);
var i: Integer;
begin

  i := meineFunktion;          // i bekommt den Wert 5

end;
end.