Ich hab das jetzt so gemacht und es funktioniert!
Delphi-Quellcode:
SL.Clear;
try
with FPingResults.LockList do
begin
if Count > 0
then
for i := 0 to Count - 1 do
begin
SL.Add(TPingResult(Items[i]).StringResult)
end;
end;
finally
FPingResults.UnlockList;
end;
Hatte nicht bedacht, dass bei jedem Aufruf von Locklist... klingt irgendwie blöd ich weiß... die Liste gelockt wird
Danke Euch!