Meherene Überprüfungen

[Deadinpac]

Ja nur das Problem bei mir ist ich weiss nicht wie ich anfangen soll

ich hab das prog ja schon soweit fertig bis auf diesen einen Quelltext

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
 var
  PosG, NegG, NeuG, Lea, Sfb, Mem: Integer;
begin
 if DBEdit2.Text > 0 then
 PosG := 1
else
 if DBEdit2.Text < 0 then
 NegG := 1
else
 if DBEdit2.Text = 0 then
 NeuG := 1;
begin
 if DBEdit3.Text = 'Leader' then
 Lea := 1
else
 if DBEdit3.Text = 'Schliessfachbetreuer' then
 sfb := 1
else
 if DBEdit3.Text = 'Member' then
 mem := 1;
end;
end;

Oder so ähnlich hätte ich das vor aber mir fällt nichts richtiges ein
und deswegen frage ich euch ja

und ich fände es sehr nett von euch wenn ihr mir hilft

mfg
deadinpac