Hola juliannemiro.
Si no te entendí mal, estás ingresando los datos desde el mismo DBGrid. De ser así, podés aprovechar el evento
OnKeyPress del
TDBGrid:
Código Delphi
[-]
procedure TForm1.DBGridKeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TDBGrid do
if SelectedField.FieldName = 'id_asistencia' then
begin
DataSource.DataSet.Edit;
if Upcase(Key) = 'P' then
SelectedField.Value:= 'PRESENTE';
if Upcase(Key) = 'A' then
SelectedField.Value:= 'AUSENTE';
Key:= #0;
end;
end;
Saludos.