crear login con adotabla1

[Yensis22]

holo espero que me puedan ayudar estoy creando un login pero no me esta funcionado es que lo tengo que crear con adotabla1

procedure TFlogin.Button1Click(Sender: TObject);
begin
if ADOTAble1.FieldByName('Field').AsString:=edit1.Text;Table1.FindKey then
if adoTable1clave.Value = Edit2.Text then
Close
else
ShowMessage('clave incorrecta!')
else
ShowMessage('Usuario no existe!');
end;
procedure TFlogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

[[eduarcol]]

Busca en el wiki hay dos buenos ejemplos al respecto

[Yensis22]

no vi ningun emplo del de me hablam

[voldemmor]

La verdad si existen ejemplos.
Ve a la seccion trucos y o directamente sobre busqueda.

Coloca ventana login y te saldran unos 2 o 3 ejemplos muy buenos que me sirvieron.

Suerte