Problem with SetRange

The program only detects the last Table1.SetRange. Could somebody please explain how to make it detect all of them?



procedure TRappUt1fB.BitBtn1Click(Sender: TObject); //Här sker granskning
begin
with RappUt1fB do
if Edit1.Text = '' then Edit1.Text := '0';
if Edit2.Text = '' then Edit2.Text := '99999999';
if Edit3.Text = '' then Edit3.Text := '0';
if Edit4.Text = '' then Edit4.Text := '99999999';
if Edit5.Text = '' then Edit5.Text := '0';
if Edit6.Text = '' then Edit6.Text := '99999999';
Table1.SetRange ([Edit1.Text], [Edit2.Text]);
Table1.SetRange ([Edit3.Text], [Edit4.Text]);
Table1.SetRange ([Edit5.Text], [Edit6.Text]);
QuickRep1.Preview;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
end;