Программа:Нумерация и отмена нумерации строк в мемо или richedit

[Obender13]

Здравствуйте, нужна помощь в написании программы, вот что требуется:
Добавить в главное меню команды нумерации и отмены нумерации строк в memo или richedit.
Как сделать нумерацию разобрался, ну и с меню конечно тоже, но вот как ее отменить не могу додуматься вот мой код делал под richedit:

procedure TForm1.N2Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to RichEdit1.Lines.Count - 1 do
  with RichEdit1.Lines do
    Strings[i] := IntToStr(I) + ' ' + Strings[i];
    end;

Вообщем буду очень благодарен тем кто поможет с отменой нумерации. =) Спасибо.

[Sazary]

Вот для отмены:

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
for i:=0 to RichEdit1.Lines.Count-1 do
 with RichEdit1.Lines do
  Strings[i] := copy(Strings[i],pos(' ',Strings[i])+1,length(Strings[i]));
end;

[Obender13]

спасибо=) !

[Rand Tesan]

У меня кстати почти такой же случай.
Только еще дополнительно... Как можно сделать, чтобы нумерация не дублировалась при нажатии на кнопку, или как можно реализовать такое же с CheckBox?

[Rand Tesan]

Все само дошло.