Delphi 3比Indy早了好几年。在Indy之前，Delphi附带了一个VCL组件套件，称为FastNet（后来的NetMasters），但我不知道它们是否可以一直追溯到Delphi 3。在FastNet之前，Delphi附带了一套来自NetManage的ActiveX控件。
如果您使用的是NetManage的HTTP ActiveX控件，那么我无法帮助您。我没有关于该控件的任何信息。
如果您使用的是FastNet/NetMasters TNMHTTP组件，那么您所展示的Indy代码 * 可能 * 会转换为如下的TNMHTTP代码（FastNet/NetMaster组件已经死了很长时间，并且没有它们的幸存文档，所以我只是基于查看CBuilder v5中附带的NMHTTP.hpp C头文件，由于 Delphi /BCB没有提供FastNet/NetMasters源代码，或者我可以访问，无论如何）：

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMHTTP1.Post('http://localhost/test/hallo.php', 'a=hello');
end;

// NHTTP1.OnSuccess event handler
procedure TForm1.NMHTTP1Success(Cmd: CmdType);
begin
  ShowMessage('Success: ' + NMHTTP1.Body);
end;

// NHTTP1.OnFailure event handler
procedure TForm1.NMHTTP1Failure(Cmd: CmdType);
begin
  ShowMessage('Failed');
end;

或者：

type
  TMyNMHTTP = class(TNMHTTP)
  public
    constructor Create(AOwner: TComponent); override;
    procedure HTTPSuccess(Cmd: CmdType);
    procedure HTTPFailure(Cmd: CmdType);
  end;

constructor TMyNMHTTP.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnSuccess := HTTPSuccess;
  OnFailure := HTTPFailure;
end;

procedure TMyNMHTTP.HTTPSuccess(Cmd: CmdType);
begin
  Tag := 1;
end;

procedure TMyNMHTTP.HTTPFailure(Cmd: CmdType);
begin
  Tag := 2;
end;

function PostExample: string; 
var 
  lHTTP: TMyNMHTTP;
begin 
  Result := '';
  lHTTP := TMyNMHTTP.Create(nil);
  try 
    lEvents.Tag := 0;
    lHTTP.Post('http://blahblahblah...', 'id=1');
    repeat
      Application.ProcessMessages;
    until lHTTP.Tag <> 0;
    if lHTTP.Tag = 1 then
      Result := lHTTP.Body;
  finally 
    lHTTP.Free; 
  end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Response: string;
begin
  Response := PostExample();
  if Response <> '' then
    ShowMessage('Success: ' + Response)
  else
    ShowMessage('Failed');
end;