problema con locate

[anubis]

lo he solucionado asi, nose si es ortodoxo, una ayudita plis.

Código Delphi [-]
procedure Tfsegur.entrar1Click(Sender: TObject);
BEGIN
  with datausuarios.tablasusuarios do
    begin
      tusuario.Locate('Usuario',usuario.Text,[]);
        if (tusuario.FieldByName('Usuario').AsString)=usuario.Text then
          begin
          if (tusuario.fieldbyname('Clave').AsString)=contra.text then
            begin
            visualizaentrada;
            tusuario.close;
            end
          else
            begin
              showmessage('La contraseña no es correcta');
              contra.Text:='';
            end
          end
        else
          begin
            showmessage('el usuario no existe');
            usuario.text:=''
          end;
  end;
end;

Alguien me puede decir si esto puede ser correcto?, si se deben hacer asi las cosas?