[marcoszorrilla]

Siguiendo el ejemplo de José Arce, quedaría así.

procedure TFPrincipal.btLanzaClick(Sender: TObject);
begin
  try
  Esperar(Ejecutar('Start Mailto:[email protected]', ''));

  finally
  end;
end;


procedure TfPrincipal.Button1Click(Sender: TObject);
begin
  try
  Esperar(Ejecutar('c:\windows\calc.exe', ''));
  finally
  end;
end;

procedure TfPrincipal.Button2Click(Sender: TObject);
begin
   try
  Esperar(Ejecutar('C:\Archivos de programa\Netscape\Netscape\Netscp.exe', 'http://www.yahoo.es'));
  finally
  end;
end;

Un Saludo.