[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; 

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