
label2.Caption:='';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from kimlikbilgileri.dbf');
query1.SQL.Add('where TCKIMLIKNO>0');
if edit1.Text<>'' then query1.SQL.Add('and TCKIMLIKNO>'+edit1.Text);
query1.ExecSQL;
query1.Open;
if query1.FieldByName('TCKIMLIKNO').AsString='' then label2.Caption:='Aradığınız kritere göre kayıt bulunamadı';