Delphi an das Ende eines memo's einen doppelpunkt setzen

[Lyan]

Hallo,

ich möchte eine Liste abarbyten.
Also man hat quasi einen Text der in etwa so aussehen könnte:

Code:

hallo mein name ist
ich bin 99 jahre alt
ich liebe pizza
außerdem asdasdasd
obendrauf gefallen mir

Ohne jetzt zu erwähnen warum ich das so möchte, sollte es nach Bearbeitung der routine dann so aussehen:

Code:

hallo mein name ist:
ich bin 99 jahre alt:
ich liebe pizza:
außerdem asdasdasd:
obendrauf gefallen mir:

Jemand eine Idee wie das machbar wäre?

Habs so versucht:

Code:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  for i := 0 to memo1.Lines.count - 1 do
  begin
    memo1.Lines[i] := memo1.Lines[i] + ':';
  end;
end;

Ist aber völliger Schwachsinn! Also bitte um Denkanstöße


MfG