[gebs]

Здравствуйте.

Есть процедура:

Код:

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

showmessage возвращает - 10.100.10.15

Как заставить работать команду пинг с переменной c
Спасибо.