Просто правила хорошего тона
Код:
procedure MyThread.UpdateGauge;
begin
if not AnalysThread.Suspended
then Form1.Gauge.Progress := Position;
end;
Внутри методов MyThread не рекомендуется использовать переменную AnalysThread - лучше писать Self, во так
Код:
procedure MyThread.UpdateGauge;
begin
if not Self.Suspended
then Form1.Gauge.Progress := Position;
end;
или ничего вообще, вот так
Код:
procedure MyThread.UpdateGauge;
begin
if not Suspended
then Form1.Gauge.Progress := Position;
end;