[Gravitas]

Перед var
Полный код процедуры:

Код:

procedure TForm1.Button1Click(Sender: TObject);
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;