[[eduarcol]]

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.');
ModuloDatos.T_Usuario.Edit;
   ModuloDatos.T_Usuario.FieldbyName('DNI').AsString := Edit_DNI.Text;
ModuloDatos.T_Usuario.Post;
ModuloDatos.T_Usuario.Close;
Exit;
end;
Modulodatos.T_Usuario.Next; //Pasamos a la siguiente tupla de la tabla Usuario
end;

para la proxima encierra el codigo entre las etiquetas delphi, y no entendi mucho, pero creo que eso es lo que necesitas