Comparando fechas

[Genner]

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 //<------ aqui es la cosa
 begin
 showMessage('modifico fecha inicio ' + DateToStr(Finicio.Date));
 end;

espero y le sirva a alguien