{$APPTYPE CONSOLE}  
program Join;
var
  Registered : boolean;
begin
  LoadSite('http://www.delphi-id.com');
  Registered := RegisterToCommunity;
  if Registered then
  begin
    LogIn;
    ReplyMessages;
    LogOut;
  end
  else
  begin
    writeln('Registration Failed.');
  end;
end;  

heheheh..... delphi style...