[[Caral]]

Hola
No se si entiendo, pero bueno.

Código Delphi [-]
while not Modulodatos.T_Usuario.Eof do begin //Mientras no sea el fin de la tabla Usuario
if ModuloDatos.T_UsuarioDni.AsString = Edit_DNI.Text then 
begin
ShowMessage('El nick ya está registrado en el sistema. Por favor, introduzca un nick distinto.');
end
else
ModuloDatos.T_Usuario.Edit;
ModuloDatos.T_UsuarioDni.Value:= Edit_DNI;
ModuloDatos.T_Usuario.Post;
end;
Modulodatos.T_Usuario.Next;
 //Pasamos a la siguiente tupla de la tabla Usuario
end;

Con query

Código Delphi [-]
ModuloDatos.Query1.sql.text:=' Select * from Usuario where Dni = : D';
ModuloDatos.Query1.Parameters[0].Value:= Edit_DNI.Text;
ModuloDatos.Query1.Open;
if Edit_DNI.Text = ModuloDatos.Query1Dni.Value then 
begin
ShowMessage('El nick ya está registrado en el sistema. Por favor, introduzca un nick distinto.');
end
else
ModuloDatos.T_Usuario.Edit;
ModuloDatos.Query1.Filebyname('Dni').Value:= Edit_DNI.Text;
ModuloDatos.T_Usuario.Post;
end;

Saludos