Creación de un cliente CORBA con Delphi 4

Pasos que hay que dar:
1. Añadir el módulo CorbaObj a la cláusula Uses.
2. Llamar a CorbaInitialize; antes de realizar ninguna operación con CORBA.
3. Añadir al proyecto el módulo _TLB.Pas que generó el servidor. En dicho módulo se encuentra el stub que el cliente necesita para poder localizar y utilizar al servidor. Basta con seleccionar Add del menú e indicar el camino de dicho archivo que, en el ejemplo que aparece abajo, es ServidorDelphi\Project1_TLB.Pas.
4. Declarar una variable donde almacenar la referencia a la interfaz.

var
Objeto: ISvrCuadrados;

5. Crear el objeto usando la clase factoría que existe en el stub. En este
caso la creación sería la siguiente:

Objeto := TSvrCuadradosCorbaFactory.CreateInstance('');

6. A partir de ese momento es posible usar Objeto para llamar a todos los
métodos de la interfaz ISvrCuadrados.

Edit1.Text := IntToStr(Objeto.Cuadrado(StrToInt(Edit1.Text)));

Un ejemplo práctico de lo mencionado:

program ClienteDelphi;

uses
  Forms,
  Principal in 'Principal.pas' {Form1},
  Project1_TLB in '..\ServidorDelphi\Project1_TLB.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
------------------------------------------------------------------------------
unit Principal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, CorbaObj;

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

var
  Form1: TForm1;

implementation

uses Project1_TLB;

var
  Objeto: ISvrCuadrados;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
   CorbaInitialize;
   Objeto := TSvrCuadradosCorbaFactory.CreateInstance('');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Objeto.Cuadrado(StrToInt(Edit1.Text)));
end;

end.