[[Caral]]

Hola
Cambia la sentencia del adoquery1 asi:

Código SQL [-]
SELECT codusu, nomusu, pasusu FROM Usuario

Y cambia la primera parte del codigo asi:

Código Delphi [-]
   LoginOK :=False;
   //   AdoQuery1.Parameters.ParamByName('cod').Value:= Edit1.Text;
   ADOQuery1.SQL.Add('Where codusu = '''+Edit1.Text+'''');
   AdoQuery1.Active:= True;

Si tienes algun problema con las comillas del edit, esto depende de la base de datos, puedes probar varias formas, pero creo que funcionara.
Este sistema es esencialmente lo mismo, solo que sin parametros.
Saludos