Zeilen in Memo löschen

[Sanchez]

Hallo,
Machs doch so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i: integer; 
begin 
  for i := Memo1.Lines.Count - 1 downto 0 do begin 
    if (Memo1.Lines[i] = '') or (Pos('     ', Memo1.Lines[i]) = 1) then begin 
         Memo1.Lines.Delete(i); 
    end; 
  end; 
end;