Schleifen-Problem

[Tommy1988]

Also, wie man meinem Projekt im Freewareforum (GaGaEditor) entnehmen kann,
arbeite ich dran, dass wenn man den Cursor z.B. irgentwo zwischen
(nicht ) hat, ein PopUpMenu mit allen dazu
gültigen Attributen erscheint.

Ich dachte ich könnt es so lösen:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject); // 2000 MS
var
aTag: String;
begin
while aTag <> '<a' do // nur ein tippfehler .. hat nix mit dem code zu tun =)
 begin
  aTag := Copy(SynMemo1.Text, CurPosition-1, 2); 
  // CurPos.-1 = zurück gehen bis <a kommt und dann eine Teilstring von einer länge
  // von 2 zeichen kopieren
  Caption := aTag; // zum anlure, ob alles richtig ist (erstmal) als Caption ausgeben
 end;
end;

So.. Ich kann nicht sagen obs klappt (denke aber schon, müsste)
wenn da nicht ein Problem wäre:

Mein Programm HÄNGT wenn dieser Timer an ist ?!