procedure Form1_Edit1_OnChange (Sender: TObject);
var vrowcount: integer;
begin
for vrowcount := 0 to form1.tablegrid1.RowCount - 1 do
begin
form1.tablegrid1.cell[1,vrowcount].color := clwhite;
if strtodate(form1.tablegrid1.cells[1,vrowcount]) >= now + form1.edit1.value then form1.tablegrid1.cell[1,vrowcount].color := clGreen;
if strtodate(form1.tablegrid1.cells[1,vrowcount]) <= now + form1.edit1.value then form1.tablegrid1.cell[1,vrowcount].color := clRed;
if form1.edit1.Text = '' then form1.tablegrid1.cell[1,vrowcount].color := clwhite ;
form1.tablegrid1.cell[3,vrowcount].Text:= (DaysBetween(Now, strtodate(form1.tablegrid1.cells[1,vrowcount]))); _ need help please
end;
end;