RE:Como declaro una variable global
Pues en la parte superior de la unidad, bajo la entrada Public (si quieres que la variable sea accesible a otros Forms) o bajo Private (si quieres que sólo sea visible para ese Form):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBCtrls, StdCtrls;
type
TForm1 = class(TForm)
DBLookupComboBox1: TDBLookupComboBox;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Button1: TButton;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
DBComboBox1: TDBComboBox;
ADOQuery3: TADOQuery;
DataSource3: TDataSource;
procedure Button1Click(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject);
private
VariablePrivada: String; {Por ejemplo, aquí}
{ Private declarations }
public
VariablePublica: Integer; {O por ejemplo, aquí}
{ Public declarations }
end;
var
Form1: TForm1;