Sollte passen. Bei vernünftiger Formatierung siehst du das auch:
Delphi-Quellcode:
procedure pruefen1;
begin
if Form1.Edit1.Text = '0' then
begin
if (Form1.Edit2.Text = '0') and (Form1.Edit3.Text = '0') then
pruefen2;
end
else
pruefen3;
end;
Das sind aber Dinge, die du wunderbar auch selbst testen kannst.