Richedit til Listbox

har fundet ud af det!

Prøv det her:

procedure TForm1.Button1Click(Sender: TObject);
var
I, P: Integer;
S: String;
begin
  ListBox1.Clear;
  I := 1;
  while True do
  begin
    S := Copy(RichEdit1.Text, I, Length(RichEdit1.Text));
    P := Pos(' ', S);
    if P > 5 then
      ListBox1.Items.Add(Copy(S, 1, P));
    if P = 0 then
    begin
      if Length(S) > 5 then
        ListBox1.Items.Add(Copy(S, 1, Length(S)));
      Exit;
    end;
    Inc(I, P);
  end;
end;