Algo así no te serviría?
Código:
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.