Delphi-Quellcode:
procedure TForm1.OnAnalyseReady(Sender: TObject);
begin
// Auswertung des Daten...
// if Assigned(AnalyseThread) then
// begin
// AnalyseThread.Terminate;
// FreeAndNil(AnalyseThread);
// end;
end;
Ändere OnAnalyseReady so ab und dein Problem ist erledigt. Jedenfalls auf Basis des Codes aus dem Beitrag hier drüber.
Hier draus muss man jetzt nicht wieder 5 bis 10 Seiten machen. Einfach in den Editor kopieren, selber testen, Problem gefunden und erledigt.