1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   with Query1 do begin
    close;
     with SQL do begin
      clear;
     ADD('select * from tabelle');
     ADD('where NUMMER LIKE ' + QuotedStr(Edit1.Text + '%'));
     ADD('and NUMMER2 = ' + QuotedStr(Edit2.Text+ ''));
  case RadioGroup1.ItemIndex of
   1:  ADD('and NUMMER not in ( select NUMMER from tabelle where
                DATUM IS NOT NULL)'); 
       ADD('and NAME = ' + QuotedStr(Edit2.Text+ ''));
       end;
 Add ('order by DATUM, NUMMER, NAME');
end;
Query1.Open;
end;
...					

1:
2:

1:  ADD('and NUMMER not in ( select NUMMER from tabelle where DATUM IS NOT NULL)'); 
       ADD('and NAME = ' + QuotedStr(Edit2.Text+ ''));					

1:
2:
3:
4:
5:
6:
7:

1:  begin
       ADD('and NUMMER not in ( select NUMMER from tabelle where 
                DATUM IS NOT NULL)'); 
       ADD('and NAME = ' + QuotedStr(Edit2.Text+ '')); 
     end;
2: {eine andere Anweisung oder Anweisungsblock}
end;					

1:
2:
3:
4:
5:
6:
7:
8:

case RadioGroup.ItemIndex of
0: begin
    [...]
    end;
1: begin
    [...]
    end;
end;