1:
2:
3:
4:
5:
6:

function Funktion1:integer;
function Funktion2(x:integer):string;

....

a:=Funktion2(Funktion1(3))                    

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

procedure test (VAR st : string);
begin
  st := 'Test';
end;

procedure TForm1.Button1Click(Sender: TObject);
var st : string;
begin
  st := '';
  test (st);
ShowMessage(st);
end;                    

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

procedure TFrame_Anmelden.B_AnmeldenClick(Sender: TObject);

var       TempS : string;
          Form_Anmelden :  TFrame_Anmelden;

begin

     Table1.Open;
     TempS := Table1.FieldByName('Vorname').AsString;
     TempS := TempS + ' ' + Table1.FieldByName('Name').AsString;
     Label2.Caption := TempS;
     Form_Anmelden := TFrame_Anmelden.Create(nil);
     Form_Anmelden.Bediener := Table1.FieldByName('Kürzel').AsString;


end;                    

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:
35:
36:
37:
38:
39:
40:
41:
42:

unit Unit_Anmelden;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Unit_Auftraege, ExtCtrls;

type
  TF_Anmelden = class(TForm)
    { Sachen zur übersichtlichkeit weggelöscht }
    Frame21: TFrame_Anmelden;

  private
    { Private-Deklarationen }
    FBediener : String;
  public
    { Public-Deklarationen }
     property Bediener : String read FBediener write FBediener;
  end;

var
  F_Anmelden: TF_Anmelden;

implementation

uses Konfiguration, Unit1;

{$R *.dfm}

procedure TF_Anmelden.FormCreate(Sender: TObject);
begin
  L_datum.Caption := DateToStr(date());
  Timer1.Enabled := true;
  Label2.Caption := FBediener;
end;

procedure TF_Anmelden.Timer1Timer(Sender: TObject);

begin
     L_uhrzeit.Caption := TimeToStr(Time);
end;                    

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

..
protected
  procedure SetBediener(Value: string); virtual;
public
  property Bediener: string read FBediener write SetBediener;


..
procedure TF_Anmelden.SetBediener(Value: string);
begin
  FBediener := Value;
  Frame21.Label2.Caption := FBediener;
end;                    

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

procedure TFrame_Anmelden.B_AnmeldenClick(Sender: TObject);

var       TempS : string;
          Frame_Anmelden :  TFrame_Anmelden;

begin

     Table1.Open;
     TempS := Table1.FieldByName('Vorname').AsString;
     TempS := TempS + ' ' + Table1.FieldByName('Name').AsString;
     Label2.Caption := TempS;
     Frame_Anmelden := TFrame_Anmelden.Create(nil);
     Frame_Anmelden.Label2.Caption := Table1.FieldByName('Kürzel').AsString;

end;                    

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

procedure TFrame_Anmelden.B_AnmeldenClick(Sender: TObject);
var       
  TempS : string;
  F_Anmelden :  TF_Anmelden;
begin
     ..
     F_Anmelden := TF_Anmelden.Create(nil);
     F_Anmelden.Benutzer := Table1.FieldByName('Kürzel').AsString;
end;                    

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

...
 public
    { Public-Deklarationen }
    BedienerName : String;
...
 Label2.Caption := Frame21.BedienerName;
...