[Gravitas]

Не совсем понял, что требуется... Но таки попытаю удачу.

Код:

label x;
var
c:integer;
begin
x:
  c:=1;
  while ((Memo1.lines.count<>2) and (C<=Memo1.Lines.Count)) do begin
    c:=c+2;
    Memo1.lines.Delete(c);
  end;
if (Memo1.Lines.Count<>3) then goto x;
end;

Вот как то так.