uses KOL;

var   Form1: TForm1;  OpenSaveDialog :TOpenSaveDialog ;

implementation {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   IF OpenSaveDialog.Execute THEN
   BEGIN
     Caption:=OpenSaveDialog.Filename;
   END;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   OpenSaveDialog.Create;
   OpenSaveDialog.OpenDialog:=true;
end;

uses KOL;

var   Form1: TForm1;

OpenDialog:POpenSaveDialog;

implementation {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   IF OpenDialog.Execute THEN
   BEGIN
     Caption:=OpenDialog.Filename;
   END;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog:=NewOpenSaveDialog('Add...','',[]);
  OpenDialog.OpenDialog := True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 OpenDialog.Free;
end;