[Yensis22]

Buenos dias Lo que quiero es saver como le ponco una validadcion a una edit me explicao mejor quiero que si el primer edit el del nombre de usuario esta en blanco me tire un mensaje que me diga que esta en blanco elte campo o ke este usuario no esiste que me hagauna comparacion del usuario. el codigo que tengo debajo me funciona perfeta mento lo unico es que si dejo el campo del edit un basio lo que yo quiero es que no me deje es cribir si no esta lleno correta mete el nombre del usuario el el edit 1 por que los otra me esta funcionando muy bien.

gracia espero que me puedad eyudar



public
{ Public declarations }
usuario1: boolean;
end;
var
Flogin: TFlogin;
implementation
{$R *.dfm}
procedure TFlogin.Button2Click(Sender: TObject);
begin
if usuario1=false then
Application.Terminate;
//else
fLogin.close;
end;
procedure TFlogin.Button1Click(Sender: TObject);
begin
// Codigo para verificar los.
if (edit2.text<>'') and (edit1.text<>'') then begin
// Codigo pra verificar o igualdade dos campos Nombre y Clave.
if (Edit1.text=adoquery1.FieldByName('usuario').AsString) and (edit2.text=adoquery1.FieldByName('clave').AsString) then begin
fLogin.Close;
edit1.Text:='';
usuario1:=true;
end else begin
messageBox(handle,'Clave Invalida','Cambiar!',MB_ICONERROR+mb_OK);
edit1.Text:='';
edit2.text:='';
edit2.SetFocus;
end;
end else
messageBox(handle,'Nombe de Usuário Inválida ','Cambiar!',MB_ICONERROR+mb_OK);
edit1.Text:='';
end;
end.