Creo que me estoy volviendo loco:
Con respecto a la solución de delphi.com.arg me ha pasado lo mismo que a Roman.
Con la de Roman me ha pasado lo siguiente:
He puesto
Código:
procedure TFormularioPrincipal.DBLookupCita04KeyPress(Sender: TObject;
var Key: Char);
begin
if key = #27 then
Begin
modulodedatos.DataSourceClientes.Edit;
modulodedatos.DataSourceClientes.FieldbyName(dblookupcita04).clear;
modulodedatos.DataSourceClientes.Post;
end;
End;
y me dice undeclared identifier FieldbyName.