» Letzte Zeile eines Memofeldes löschen

[Pseudemys Nelsoni]

http://www.united-coding.de/j0.jpg

moin,

wie man sieht ist die letzte zeile links immer leer, egal wieviele zeilen man schreibt. Wie kann ihr die letzte löschen?

hatte das schon so versucht:

Delphi-Quellcode:

procedure TForm1.Memo1Click(Sender: TObject);
var bla: integer;
begin
for bla := 0 to memo1.Lines.Count do
  begin
  if memo1.Lines.Text = '' then
    begin
    memo1.Lines.Delete(bla);
    end;
  end;
end;

(Memo1click hab ich zum testen genommen)
Es wird keine Zeile gelöscht...

kann mir jemand helfen?

gruss silent