registrar asistencias si repetirse

[jose.ignacio.ve]

hola alguien me puede ayudar a registrar asistencias de alumnos si repetirse? o sea que si ya se registro la asistencia de un alumno hoy no se vuelva a registrar hasta mañana.. yo tengo un codigo que solo funciona para un dia!

Código Delphi [-]
procedure Tflistado_alumnos.basistenciasClick(Sender: TObject);
var
fecha: string;
Ca,Tt:integer;
begin

    fmodulo.tasistencias.Active:=true;
    fmodulo.tasistencias.Refresh;
    fecha:= datetostr(now);


    if (fmodulo.tasistencias.Locate('id_alumnos',fmodulo.zqlistado_alumnos.FieldByName('id_alumnos').asinte  ger,[]))
     and (fmodulo.tasistencias['fecha']= fecha )then
        begin

                  Application.MessageBox('YA SE REGISTRO PREVIAMENTE ','GIMNASIO RUJA',MB_OK+MB_ICONINFORMATION)
        end
     else
         begin
               fmodulo.ZQcantasistencia.Active:=true;
               fmodulo.ZQcantasistencia.ParamByName('id_alumnos').AsInteger:= fmodulo.zqlistado_alumnos['id_alumnos'];
               fmodulo.ZQcantasistencia.Refresh;
               ca:=fmodulo.ZQcantasistencia['tasistencias'];
               fmodulo.tasistencias.Insert;
               fmodulo.tasistencias['fecha']:= now;
               fmodulo.tasistencias['hora']:= now;
               fmodulo.tasistencias['estado']:= 'PRESENTE';
               fmodulo.tasistencias['id_alumnos']:= fmodulo.zqlistado_alumnos['id_alumnos'];
               fmodulo.tasistencias.Post;
               Application.MessageBox('REGISTRADO','GIMNASIO RUJA',MB_OK+MB_ICONINFORMATION);
               fmodulo.tasistencias.Refresh;

         end;

        fmodulo.tasistencias.Close;
end;

lo que quiero hacer es que me localice el id_alumnos que me trae el listado de alumnos que lo tomo de un dbgrid. y que verifique si el dia de hoy ya se registro asistencia.. si hoy se registro que muestre el cartel si no se registro que lo guarde en la tabla asistencia