[dr. F.I.N.]

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  a: string;
begin
  a := fm_main.MyQ.FieldByName('remote_switch_id').AsString;
  WinExec (('ping 10.100.10.' + a), SW_SHOW);
end;