[NumLock]

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
...
procedure TForm1.Button4Click(Sender: TObject);
begin
  WinExec(PChar('ping '+Edit1.Text), SW_SHOW);
end;

возможно так же захочется http://www.delphisources.ru/forum/sh...65&postcount=5