function in procedure

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 

  function summe(var a,b: Integer): Integer;   //<-- hier hast Du a und b in der Parameterlist deklariert
  begin 
        a := strtoint(Edit1.text); 
        b := strtoint(Edit2.Text); 
        result := a + b; 
  end; 

var    wert: Integer; 

begin 
        wert := summe; //<-- hier rufst Du die Funktion ohne Parameter auf
        Label1.Caption := inttostr(wert); 
end; 

end.

Das was Muhkuh in seinem Beitrag geschrieben hat, ist letztendlich das wie es sein sollte.
Denn Du nutzt die Parameter nicht wirrklich, du fragst in Deiner Funktuion summe irgendwelche Editfelder ab,
das geht rein formal ist aber nicht schön.

Grüße
Klaus