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

procedure TService.DBGrid2DblClick(Sender: TObject);
var
  Art: string;
  ArtString : string;
  ClickedOK: Boolean;
begin

  ClickedOK := InputQuery('Suche Name', 'Geben Sie einen Namen ein',
                                                                Art);

  if ClickedOK then              
    if Art = '' then EXIT;

    ArtString := Art;

     ADODataSet5.Close;
         SQLString:= 'select * from DBT where Typ='
                        + '"' + ArtString + '"';
     ADODataset5.CommandText:=SQLString;
     ADODataSet5.Active:=true;

end;