Delphi Programm

[KodeZwerg]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  ant1,ant2:Boolean;
  a,b,auswerten:Integer;

  Procedure ein; // ein submethode innerhalb von button1click
  begin;
    ant1:=Edit1.Text;
    ant2:=Edit2.Text;
  End;

  Procedure Verarbeitung; // ein submethode innerhalb von button1click
  Begin;
    A:=(ant1='t');
    B:=(ant2='t');
    IF (ant1='t') AND (ant2='t') THEN Edit3.Text:='True';
  End;
// hier fehlt ein begin
// hier sollte code rein der vielleicht diese submethoden auch aufruft
end;

end. // hier ist alles aus