how can I make my remote data module support multiple thread?

in delphi5 I create remote app server using Apartment thread module,
in my remote app server have a simple method 'myfunc',it only delay some time.
in my client application i make a thread object  'TMyThread',it call remote server's 'myfunc'
i want the remote app server's method exec in multiple thread.
for example in my client application,i make three thread T1,T2,T3,T1 delay 1 second,
T2 delay 2 second,T3 delay 3 second,i want total cost is 3 second,but now it is 6 second.
how can i make it total cost 3 second.


following is my client application code.

unit mythread;

interface

uses
  Classes, Graphics, ExtCtrls,mconnect,stdctrls,Sysutils,Db,
  DBClient,Windows,sconnect,comobj,ActiveX;

type

  TMyThread=class(TThread)
  private
    Foconnect:TCustomConnection;
    FsResult:String;
    FiSecond:integer;
  protected
    procedure Execute; override;
    procedure dofunc;
  public
    constructor Create(poconnect:TCustomConnection;piSecond:Integer);
  end;


implementation


constructor TMyThread.Create
  (poDcom:TCustomConnection;piSecond:Integer);
begin
  Foconnect :=poconnect;
  FoMemo:=poMemo;
  FiSecond:=piSecond;
  freeOnTerminate:=False;
  inherited Create(False);
end;

procedure TMyThread.dofunc;
var
  sResult:variant;
begin
  (Foconnect as TSocketConnection).AppServer.myfunc(FiSecond,sResult);
  FsResult:=sResult+'FiSecond is'+IntToStr(FiSecond);
end;

procedure TMyThread.Execute;
begin
  ...
  ...
  Synchronize(dofunc);
  ...
  ...
end;

end.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBClient, MConnect, StdCtrls, Spin, ExtCtrls, SConnect;

type
  TForm1 = class(TForm)
    Button1: TButton;
    txt2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    txt3: TMemo;
    SocketConnection1: TSocketConnection;
    SocketConnection2: TSocketConnection;
    SocketConnection3: TSocketConnection;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses mythread;

{$R *.DFM}


var
  intseconds:integer;
  ThreadRuning:integer;
  istart,iend:integer;
  idelay:double;
  T1,T2,T3:TMyThread;


procedure TForm1.Button1Click(Sender: TObject);
begin
  intseconds:=StrToInt(txt2.Text);
  SocketConnection1.Connected:=True;
  SocketConnection2.Connected:=True;
  SocketConnection3.Connected:=True;
  ThreadRuning:=3;
  T1:=TMyThread.create(SocketConnection1,intseconds);
  T2:=TMyThread.create(SocketConnection2,intseconds*2);
  T3:=TMyThread.create(SocketConnection3,intseconds*3);
  {
    I want T1,T2,T3 exec simultaneity,but now it is T1  
    finish, then T2 run, T2 finish then T3 run
  }
end;

end.