Memo -> RichEdit mit FormatÜbergabe

[Tyler]

also... soweit gehts erstmal

Delphi-Quellcode:

temp := memoEingabe.Text;
repeat
IF temp[1] = '[' then flag := 1 else flag := 0;

if flag = 0 then
begin
k := Pos('[COLOR=', temp);
richVorschau.Lines.Add(Copy(temp, 1, k - 1));
Delete(temp, 1, k - 1);
flag := 1;
memoEingabe.Text := temp;
end else if flag = 1 then
begin
tempAus := Copy(temp, Pos('[COLOR=Rot]', temp) + 11, Pos('[/COLOR]', temp) - 12);
j := Length(tempAus);
richVorschau.Text := richVorschau.Text + (tempAus);
richVorschau.SelStart := Length(richVorschau.Text) - j;
richVorschau.SelLength := j;
richVorschau.SelAttributes.Color := clRed;
richVorschau.Repaint;
Delete(temp, 1, Pos('[/COLOR]', temp) + 8);
memoEingabe.Text := tempAus;
memoEingabe.Repaint;
end;
until temp = '';

nur bleibt mein Programm jetzt immer stehen... Kann jemand sagen warum?

Ich denke mal es liegt an

Until Temp = '';

aber mit

Until Length(Temp) <= 0;

gehts auch nicht.

Jemand ne Idee?