Alternative zu While

[himitsu]

Zitat:

function inserts() : string;

Wieso so?

Schau mal wie TFNThreadStartRoutine deklariert ist und wenn da nichts steht, dann schau in der Deklaration der entsprechenden Funktion nach.
Bei dir ist gleich alles komplett falsch ... Parameter, Rückgabetyp und Aufrufkonvention.

Fast immer dann, wenn du solche brutalen Casts machen mußt, welche auch noch Delphis eingebaute Prüfung auf Typsicherheit umgehen, solltest du dir dringend überlegen was du da überhaupt machst und ob du da nicht irgendwelchen Mist baust.

Zitat:

Form1.Memo1.Lines.Add

Und dann greifst du innerhalb deines Threads direkt auf die VCL zu.
Das macht man nicht.
Sowas hat man gefälligst zu synchronisieren!