Работа с стрктурами в Delphi

[spectrum988]

var i: integer;
newvrprib:TDateTime;
begin
newvrprib:=StrToTime(Edit6.Text);
 for i:=1 to nzap do
     if Avtopark[i].vrprib< newvrprib  then
     begin
      Memo1.Clear;
      Memo1.Lines.Add('Меньше '+' '+timeToStr(newvrprib));
      Memo1.Lines.Add('_________________________________________________________________________________');
      with Avtopark[i] do
      Memo1.Lines.Add(IntToStr(num)+' '+typ+' '+punkt+' '+timeToStr(vrotpr)+' '+timeToStr(vrprib));
     end;
end;

Скажите пожалуйста,что здесь может быть не правильно,должно выводить записи у которых время меньше заданного времени.Выводит только последнюю введенную подходящую запись,а 1-ую 2-ую не выводит,что я сделал не так ?

[Аватар]

Memo1.Clear; и чистит все до того записанное в Мемо

[spectrum988]

Спасибо,не знаю как не заметил,что вписал очистку в цикл.