Problem mit if-Bedingung

[Klaus01]

So, habe das ganze mal etwas eingerückt und wenn Du jetzt noch sagst
was die procedure machen soll und mit welchen Werten sie aussteigt
dann kann man vielleicht auch besser helfen.

Grüße
Klaus

Delphi-Quellcode:

procedure TRechnung.Button3Click(Sender: TObject); 
begin 
Table1.Next; 

DateTimePicker2.Date:=StrToDateTime(DBText4.Caption); 
DateTimePicker3.Date:=StrToDateTime(DBText5.Caption); 
DateTimePicker4.Date:=StrToDateTime(DBEdit22.Text); 
DateTimePicker5.Date:=StrToDateTime(DBEdit23.Text); 
DateTimePicker6.Date:=StrToDateTime(DBEdit24.Text); 
Rechnung.Label21.Caption:=FormatDateTime('dd.mm.yyyy',date+StrToInt(Rechnung.DBText6.Caption)); 
spSkinButton1.Enabled := True; 
spSkinButton2.Enabled := True; 

if DateTimePicker1.Date <= DateTimePicker3.Date then 
  begin 
    Table1.Edit; 
    DBEdit17.Text:='offen'; 
    DBText5.Font.Color:=clYellow; 
    Button1Click(nil); 
  end 
else 
  begin 
    Table1.Edit; 
    Button1Click(nil); 
  end; 

if DateTimePicker1.Date >= DateTimePicker3.Date then 
  begin 
    Table1.Edit; 
    DBEdit17.Text:='1. Mahnstufe'; 
    DBText5.Font.Color:=clRed; 
    Button1Click(nil); 
  end 
else 
  begin 
    Table1.Edit; 
    Button1Click(nil); 
end; 

if DateTimePicker1.Date >= DateTimePicker4.Date then 
  begin 
    Table1.Edit; 
    DBEdit17.Text:='2. Mahnstufe'; 
    DBText5.Font.Color:=clRed; 
    Button1Click(nil); 
  end 
else 
  begin 
    Table1.Edit; 
    Button1Click(nil); 
  end; 

if DateTimePicker1.Date >= DateTimePicker5.Date then 
  begin 
    Table1.Edit; 
    DBEdit17.Text:='3. Mahnstufe'; 
    DBText5.Font.Color:=clRed; 
    Button1Click(nil); 
  end 
else 
  begin 
    Table1.Edit; 
    Button1Click(nil); 
  end; 

if DateTimePicker1.Date >= DateTimePicker6.Date then 
  begin 
    Table1.Edit; 
    DBEdit17.Text:='Klage'; 
    DBText5.Font.Color:=clRed; 
    Button1Click(nil); 
  end 
else 
  begin 
    Table1.Edit; 
    Button1Click(nil); 
  end; 

if vergleicheStringsN(Label27.Caption, DBEdit21.Text, 50)=True then 
  begin 
    Table1.Edit; 
    DBEdit17.Text:='Bezahlt'; 
    DBText5.Font.Color:=clYellow; 
    Button1Click(nil); 
  end 
else 
  begin 
    Table1.Edit; 
    Button1Click(nil); 
  end; 

if Table1.EOF then 
  begin 
    spSkinButton4Click(Self); 
    spSkinButton17.Enabled:=True; 
    Timer1.Enabled:=False; 
  end; 

end;