abrir cmd.exe ejecutando una orden

[__cadetill]

Algo así no te serviría?

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', 'ping', '192.168.100.1', '', sw_normal);
  ShellExecute(handle, 'open', 'ping', '192.168.100.2', '', sw_normal);
  ShellExecute(handle, 'open', 'ping', '192.168.100.3', '', sw_normal);
end;

PD: añade ShellAPI en el uses.