unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;

type
  TFMain = class(TForm)
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);

  private

  public
    procedure Pokaz_okno_wyboru();
  end;

var
  FMain: TFMain;

implementation

{$R *.dfm}

procedure TFMain.FormActivate(Sender: TObject);
begin
	Pokaz_okno_wyboru();
end;

procedure TFMain.Pokaz_okno_wyboru();
var
	ah : THandle;
   aw : WideString;
   ConnectionString: WideString;

begin
	ah := 0;
   aw := ' ';
   ConnectionString := ADODB.PromptDataSource(ah, aw);
end;

end.

