Código Delphi [-]
/******************* Formulario 1 **************

Unit uForm1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,.

type
TForm1 = class(TForm)
lEditProvin: listEditor;
procedure ....

{ Private declarations }

public
{ Public declarations }
cBase, cCodFotos, RemoteServer: string;
nCodFotos: integer;

public
end;

var
fForm1: TForm1;

implementation

uses uLogin, uForm2;
......

/// ******************* Formulario 2 *****************************

unit uForm2;

interface

uses
System.SysUtils, .......

type
TfForm2 = class(TForm)
FooterLayout: TLayout....

private
{ Private declarations }
public
{ Public declarations }
end;

var
fForm2: TForm2;

implementation

uses uLogin, uForm1;

procedure TfForm2.FormCreate(Sender: TObject);
var lLocate: boolean;
SearchOptions: TLocateOptions;
sFields: TStringList;
i: integer;
begin

begin
With ClientModule1 do
begin
uQProvin.Close;
uQProvin.SQL.Text :='select * from ' + Form1.cBase + '.dbo.Provincias order by cNomPrv';
uQProvin.Open;
end;

Form1.lEditProvin.items.Clear;

end;

end;

• Cuando obtemos un error estaría bien saber cual es el error.
• Otra cosa que ayuda mucho es generar el ZIP con el pequeño proyecto y subirlo.