Habs so ähnlich probiert :
Delphi-Quellcode:
var
sl: TStringList;
s: String;
begin
sl := TStringList.Create;
s := 'Neuer Text'
s1 := sl[0] + s;
end
Allerdings ist das Problem, dass das alle 3 Sek geprüft wird und somit die Zeile immer wieder angehängt wird. (Also immer länger wird)