usunięcie powtórzeń

Jak usunąć wszystkie powtórzenia z memo? Mam np.

oooooooooookkkkkkknnooooo

i by z tego powstało "okno".

var S,TS:String;
var I:Integer;
var Ch:Char;

S:=Memo1.Text;
for I:=0 to 25 do
begin
  Ch:=Chr(Ord('a')+I);
  SetLength(TS,0);
  while TS<>S do
  begin
    TS:=S;
    S:=StringReplace(S,Ch+Ch,Ch,[rfReplaceAll]);
  end;
end;
Memo1.Text:=S;

Oczywiście rozwiązanie podane przez _13th_Dragon jest poprawne, ale polecam się zaznajomić z wyrażeniami regularnymi, w Delphi trzeba chyba ściągnąć dodatkową bibliotekę do tego.