Delphi Programm

[Anonym123]

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

Procedure ein;
begin;

ant1:=Edit1.Text;
ant2:=Edit2.Text;
End;

Procedure Verarbeitung;
Begin;
A:=(ant1='t');
B:=(ant2='t');
IF (ant1='t') AND (ant2='t') THEN Edit3.Text:='True';
End;




end;

end.