[sersoftin]

вот код

Код:

memo1.Clear;
Process1.CommandLine:='ping -c 1 8.8.8.8';
Process1.Execute;
memo1.lines.LoadFromStream(process1.Output);
Label50.Caption:=copy(memo1.Lines[1],47,6);
if Label50.caption='' then
begin
StatusBar1.Panels.Items[0].Text:='$(B'3'd'Q'd'e'c(B $(B'a'`'U'\']'p'i'V'_'Z'q(B: $(B'_'V'd'e(B';
Button3.Enabled:=True;
Button4.Enabled:=False;
end
else
begin
StatusBar1.Panels.Items[0].Text:='$(B'3'd'Q'd'e'c(B $(B'a'`'U'\']'p'i'V'_'Z'q(B: $(B'V'c'd'n(B';
Button3.Enabled:=false;
Button4.Enabled:=true;
end;
application.ProcessMessages; 

что в нём не так а то программа виснет и пишет типо не отвечает

[cotseec]

что делает метод Process1.Execute?

[sersoftin]

process1.execute это выполнение команды заданной в process1.comandline
я написал само событие которое выполняется по таймеру

[cotseec]

как реализован этот метод? (отдельный поток или основной поток)
F5 на третьей строке, потом F7, F7, F7...

[angvelem]

Долгосрочные операции в таймере лучше не делать. Тут есть разные подходы:
1. Послать сообщение основной программе, затем выполнить нужный код.
2. Выставить флаг и затем ...
3. Стартовать поток и затем он ...
4. и т.д.

[sersoftin]

то есть как мне убрать тормоза? отделить это в отдельную процедуру