Si otro usuario quiere Utilizar el Codigo:
Código Delphi
[-]begin
with ADOTable1 do
begin
Filtered := False;
Filter := 'Nombre LIKE ' + QuotedStr(Edit1.Text + '%');
Filtered := True;
if adotable1.RecordCount = 0 then
begin
Showmessage ('Usuario No Encontrado');
end;
end;
end;
Aqui si no encuentra el usuario te muestra un Mensaje