[Athabasca]

So geht's mit xe6:

uses
  WinAPI.ShellAPI

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Dummy: String;
begin
  Dummy := '-t -l ' + Edit1.Text;
  ShellExecute(Handle, 'open', 'ping', PChar(Dummy), nil, SW_SHOWNORMAL);
end;