1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.ParseBuffer;
var
Data : TStringlist;
{...}
begin
Data := TStringlist.create;
try
        {...}

                        execute(Current, Data); 
                {...}
finally
        Data.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Execute(const Command: TCmdToken; Data: TStringList);
var i : Integer;
begin
case Command of // Befehle fallunterscheiden:
cmdNOP: // naja, eben nichts tun...
;
cmdSAID: // Text mit Autorenangabe anzeigen
Log.Lines.Add(Data.Strings[1]+': '+Data.Strings[2]);
cmdUSER: // User-Liste aktualisieren
Clients.Items.CommaText := Data.Strings[1];
else // ungültiges Kommando loggen und dann wegwerfen
Log.Lines.Add('Unbekanntes Kommando: '+Data.Strings[0]);
end;
// verarbeitete Werte löschen
for i := 1 to Syntax[Command].ArgCount do // soviele Werte, wie dieser Befehl hat
        Data.Delete(0); // aus der Befehlskette (vorne!) löschen

end;