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:

function TForm1.Fenster(Titel,Text: String): String;
var
  Fenster:  TForm;
  Edit:     TEdit;
  Button:   TButton;
  procedure Ergebnis(Sender: TObject);
    begin
      Result := Edit.Text;
      Fenster.Close;
    end;
  begin
    Fenster := TForm.Create(self);
    Edit := TEdit.Create(self);
    Button := TButton.Create(self);
    with Fenster do begin
      Position := poScreenCenter;
      Width := 300;
      Height := 100;
      Caption := Titel;
      Visible := True;
      BringToFront;
    end;
    with Edit do begin
      Parent := Fenster;
      Width := 150;
      Left := 25;
      Text := Text;
      Top := 10;
    end;
    with Button do begin
      Parent := Fenster;
      Width := 50;
      Top := 50;
      Left := 125;
      OnClick := Ergebnis; //Hier ist das Problem
    end;
  end;
[/delphi