DCOM problems

I've been trying to learn how to do DCOM and have run into a problem.

Current I made a server app that just sends a windows message to another program I made. these both run on the same pc.

I then made a client which calls the method from the server app and this all works fine.

I then tried to run the client on another machine (after running the server app so as to register it) and it don't work :/ I ran dcomcnfg and found my dcom class thingy and changed it so it tried to run from the server computer but that don't work either. Here's the code for the server and client. (This works fine when both run on the local machine)


Server
---------------------------------------

interface

uses
  ComObj, ActiveX, srv3_TLB, StdVcl, messages, windows;

Const
   EX_START = WM_USER + 100;

type
  Tgdh = class(TAutoObject, Igdh)
  protected
    procedure startexo; safecall;
    { Protected declarations }
  end;

implementation

uses ComServ;

procedure Tgdh.startexo;
var
   hwnd  : THandle;
begin
   hwnd := FindWindow(Nil, pchar('gdhServer'));
   if hwnd <> 0 then
      SendMessage(hwnd, EX_START, 0, 0);

end;

initialization
  TAutoObjectFactory.Create(ComServer, Tgdh, Class_gdh,
    ciMultiInstance, tmApartment);
end.
---------------------------------------


client
---------------------------------------
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, srv3_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   srv: Igdh;
begin
   srv := Cogdh.CreateRemote('172.24.201.10');
   srv.startexo;
   srv := nil;
end;

end.
----------------------------------------------------


Thanks for any help :)

Gareth