Hola gsilvei.
Si no te entendí mal, sería:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
DataSet.Open;
DataSet.Locate('FECHA', Date, []);
DBGrid1.Options:= DBGrid1.Options + [dgRowSelect]; ...
end;
Donde 'FECHA' sería el nombre de tu campo.
Saludos.