[ALexandr555]

Сначало попробовал так, но была ошибка так как число строк менялось после удаления а изначально же записано было больше

Код:

for mem1:=0 to listbox1.Count-1 do begin
if DaysBetween(TDateTime(Now()),StrToDate(copy(listbox1.Items[mem1],pos('=',listbox1.Items[mem1])+1,length(listbox1.Items[mem1])))) > 1  then
      begin
         listbox1.Items.Delete(mem1);
     end;
   end;

затем исправил на это
но так он вобще ничего не делает потяния не имею почему

Код:

for mem1:=listbox1.Count-1 to 0 do begin
if DaysBetween(TDateTime(Now()),StrToDate(copy(listbox1.Items[mem1],pos('=',listbox1.Items[mem1])+1,length(listbox1.Items[mem1])))) > 1  then
      begin
         listbox1.Items.Delete(mem1);
     end;
   end;