[gebs]

Благодарю всех. Заработало вот так:

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  ip: String;
  s: String;
begin
  ip:=fm_main.MyQ.FieldByName('remote_switch_id').AsString; // var
  s:='ping '+' 10.100.10.' +ip;
  //showmessage(s);
WinExec(PAnsiChar( AnsiString(s)), SW_SHOW);
end;

Видимо это связанос моим незнанием и с d2009