procedure mit Sender

[DeddyH]

Das hat aber mit Sender gar nichts zu tun. Erweitere Deine Prozedur einfach um ein Argument, das Du dann innerhalb der Prozedur auswertest.

Delphi-Quellcode:

procedure TForm1.DatenAusgeben(const Ort: string = '');
const DefSQL = 'SELECT * FROM Schueler';
begin
  ...
  ADOQuery1.SQL := DefSQL;
  //wenn ein Ort übergeben wurde, SQL erweitern
  if Ort <> '' then
    begin
      ADOQuery1.SQL := ADOQuery1.SQL + ' WHERE Ort = :ort');
      ADOQuery1.Parameters.ParamByName('ort').Value := Ort;
    end;
  ...
end;