1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

   Begin
   if Edit1.Text='' then
   Begin
     exit;
   End
   else
   Begin
   bez:=Edit1.Text;
   DataModule2.ADOQuery_Mieter.Close;
   DataModule2.ADOQuery_Mieter.SQL.Text:='Select * From MDV1 Where Name ='+bez+'';
   DataModule2.ADOQuery_Mieter.Open;
   z:=DataModule2.ADOQuery_Mieter.RecordCount;
   Label6.Caption:=inttostr(Z);					

1:

... WHERE Name LIKE "M%" ...					

1:

Select * From MDV1 Where Contains(Name, 'Sucht*');