bien la solucion CompareDate de DateUtils
Código Delphi
[-]
var
fila_actual:integer;
fecha_actual,fech_:string;
fech:TDatetime;
begin
fila_actual:=grid.Row;
fech:=StrToDate(grid.Cells[4,fila_actual]);
fech_:=FormatDateTime('dd/mm/yyyy',fech);
fech:=StrToDate(fech_);
if(CompareDate(Finicio.Date,fech)=1)then begin
showMessage('modifico fecha inicio ' + DateToStr(Finicio.Date));
end;
espero y le sirva a alguien