Ejemplo usando BDE

procedure TFCamas.Button3Click(Sender: TObject);
begin
   ADOQuery1.Filtered := False;
   ADOQuery1.Close;
   ADOQuery1.Open;
end;

  begin
             ADOQuery1.Filter := 'FechaV < '+DateToStr(Fecha1);
             ADOQuery1.Filtered := True;
             DBGrid1.Columns[4].Font.Color:= ClRed;
             end;

begin
            ADOQuery1.Filter := 'FechaV < '+DateToStr(Fecha1);
            ADOQuery1.Filtered := True;
            DBGrid1.Columns[4].Font.Color:= ClRed; //Aquí
            end;

procedure TForm1.DBGrid1DrawColumnCell
   (Sender: TObject; const Rect: TRect;
    DataCol: Integer; Column: TColumn;
    State: TGridDrawState);
begin
if ADOQuery1.FieldByName('FechaV').AsDateTime < Fecha1 then
begin
   DBGrid1.Canvas.Font.Color:=clRed;
end;
if DataCol = 4 then //Si la columna 4 es el de la fecha colocas 4 sino la que corresponda
  DBGrid1.DefaultDrawColumnCell
    (Rect, DataCol, Column, State);
end;

 // este si lo cambio es solo la referencia del ComboBox.
 if (CBusca.Text = 'Numero de Cama') then
        begin
   // este no que es la referencia a la base de datos.
           ADOQuery1.Filter := 'NumeroCama = '+QuotedStr(Edit1.Text);
           ADOQuery1.Filtered := True;
        end

var
  FCamas: TFCamas;
 
implementation
 
uses UQR1, UQR2;
 
{$R *.dfm}
 
procedure TFCamas.Button1Click(Sender: TObject);
begin
  Close;
end;
 
procedure TFCamas.FormCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
    // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Direccion.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB:Database Password=admin';
   ADOConnection1.ConnectionString := ConStr;
   ADOConnection1.Open;
   ADOQuery1.Open;
   DateTimePicker1.Date:= now;
 
end;
 
procedure TFCamas.DBMemo1Click(Sender: TObject);
begin
    DBMemo1.Height:= 241;
    DBMemo1.Width:= 737;
end;
 
procedure TFCamas.DBMemo1DblClick(Sender: TObject);
begin
    DBMemo1.Height:= 17;
    DBMemo1.Width:= 737;
end;
 
procedure TFCamas.CBuscaChange(Sender: TObject);
var
Fecha1: Tdate;
begin
Fecha1:= now;
   Label2.Caption:= 'Seleccione el ' +CBusca.Text;
   if (CBusca.Text = 'Expiration Date') then
             begin
             ADOQuery1.Filter := 'FechaV < '+DateToStr(Fecha1);
             ADOQuery1.Filtered := True;
             DBGrid1.Columns[4].Font.Color:= ClRed;
             end;
end;
 
procedure TFCamas.Button2Click(Sender: TObject);
begin
     if (CBusca.Text = 'Numero de Cama') then
        begin
           ADOQuery1.Filter := 'NumeroCama = '+QuotedStr(Edit1.Text);
           ADOQuery1.Filtered := True;
        end
        else if (CBusca.Text = 'Modelo') then
             begin
                ADOQuery1.Filter := 'Modelo = '+QuotedStr(Edit1.Text);
                ADOQuery1.Filtered := True;
             end
        else if (CBusca.Text = 'Numero de Serie') then
             begin
                ADOQuery1.Filter := 'NumeroSerie = '+QuotedStr(Edit1.Text);
                ADOQuery1.Filtered := True;
             end
       else if (CBusca.Text = 'Fabricante') then
             begin
                ADOQuery1.Filter := 'Fabricante = '+QuotedStr(Edit1.Text);
                ADOQuery1.Filtered := True;
              end;
end;
 
procedure TFCamas.Button3Click(Sender: TObject);
begin
   ADOQuery1.Filtered := False;
   ADOQuery1.Close;
   ADOQuery1.Open;
end;
 
procedure TFCamas.Button4Click(Sender: TObject);
begin
   ADOQuery1.Edit;
   ADOQuery1.FieldByName('FechaV').Value:= DateTimePicker1.Date;
   ADOQuery1.Post;
end;
 
procedure TFCamas.Imprimirporcama1Click(Sender: TObject);
begin
   try
  QR1:=TQR1.Create(self);
  QR1.ADOQuery1.SQL.Text:= ' Select * From Camas ';
  QR1.ADOQuery1.SQL.Add(' WHERE NumeroCama = :Num');
  QR1.ADOQuery1.Parameters.ParamByName('num').Value:= ADOQuery1.FieldByName('NumeroCama').Value;
  QR1.ADOQuery1.Open;
  QR1.QRLabel1.Caption := 'Control por Cama';
  QR1.Preview;
  finally
  QR1.Free;
  end;
end;
 
procedure TFCamas.Button5Click(Sender: TObject);
begin
   PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
 
procedure TFCamas.Imprimirporfechavencida1Click(Sender: TObject);
var
Fecha1: Tdate;
begin
Fecha1:= now;
  ShortDateFormat := 'mm/dd/yyyy';
  try
  QR2:=TQR2.Create(self);
  QR2.ADOQuery1.Filter := 'FechaV < '+DateToStr(Fecha1);
  QR2.ADOQuery1.Filtered := True;
  QR2.ADOQuery1.Open;
  ShortDateFormat := 'dd/mm/yyyy';
  QR2.QRLabel1.Caption := 'Control por Fecha Vencida';
  QR2.Preview;
  finally
  QR2.Free;
  end;
end;
 
end.

if ADOQuery1.FieldByName('FechaV').AsDateTime < Fecha1 thenbegin

var
  fecha1: TDate;
begin
fecha1 := now;
  if ADOQuery1.FieldByName('FechaV').AsDateTime < Fecha1 then begin
    //...

procedure TFCamas.Button3Click(Sender: TObject);
begin
   ADOQuery1.Filtered := False;
   ADOQuery1.Close;
   ADOQuery1.Open;
end;

procedure TFCamas.CBuscaChange(Sender: TObject);
var
Fecha1: Tdate;
begin
Fecha1:= now;
   Label2.Caption:= 'Seleccione el ' +CBusca.Text;
   if (CBusca.Text = 'Expiration Date') then
             begin
             ADOQuery1.Filter := 'FechaV < '+DateToStr(Fecha1);
             ADOQuery1.Filtered := True;
             //DBGrid1.Columns[4].Font.Color:= ClRed;
             end;
end;

procedure TFCamas.BitBtn4Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:= 'Select * From camas';
  ADOQuery1.Open;
end;

procedure TFCamas.BitBtn4Click(Sender: TObject);
begin
  ADOQuery1.Filtered := False; // esto es lo nuevo
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:= 'Select * From camas';
  ADOQuery1.Open;
end;