loeschen der letzten zeile des memo's

[o0o]

hi leutz, also ich hab in nem memo ein paar zeilen text.
per button will ich die letzte zeile in ein edit kopieren und das klappte eig. auch wunderbar...
nur diese letzte zeile soll danach geloescht werden und da haberts.

mein bisheriger source

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
   i : Integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    edit4.text := memo1.Lines[i];
    Memo1.Lines.Delete[i];
  end;
 end;

waere nett wenn mir jemand da helfen koennte^^

da o0o