Crear un hueco en blanco en el DBLookupcombobox

[fortran]

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

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.