procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(nil);
  Form2.Caption := 'Очень нужная форма';
  Form2.ShowModal;
  Form2.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  begin
    Caption := 'Очень нужная форма';
    ShowModal;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
    Caption := 'Очень нужная форма';
    ShowModal;
  finally
    Free;
  end;
end;

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure ShowForm2;

//var
//  Form2: TForm2;

implementation

{$R *.dfm}

procedure ShowForm2;
begin
  with TForm2.Create(nil) do
  try
    Caption := 'Очень нужная форма';
    ShowModal;
  finally
    Free;
  end;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowForm2;
end;

  with TColumnsVisible.Create(nil) do
  try
    ...
    ShowModal;
  finally
    Free;
  end;

procedure TQWorkerForm.FieldVisibleMenuClick(Sender: TObject);
begin
...
ColumnsVisible.ShowModal;
end;

procedure TColumnsVisible.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MessageDlg('Закрываемся!', mtInformation, [mbOK], 0);
end;

procedure TColumnsVisible.RzButton1Click(Sender: TObject);
begin
modalresult:=mrYes;
Close;
end;

unit ColumnsVis_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, CheckLst, DBGridEh, GridsEh;

type
  TColumnsVisibleForm = class(TForm)
    CheckListBox1: TCheckListBox;
    bbtnOk: TBitBtn;                // Назначить ModalResult = mrOk
    bbtnCancel: TBitBtn;            // Назначить ModalResult = mrCancel
    FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure ReadColumnsEh(AGrid: TDBGridEh);
    procedure WriteColumnsEh(AGrid: TDBGridEh);
    function CheckValid: Boolean;
  public
    class function Execute_cm(AGrid: TCustomGridEh): Boolean;  // Классовый метод, можно вынести
  end;                                                        // из класса и сделать обычной функцией

implementation

{$R *.dfm}

{ TColumnsVisibleForm }

class function TColumnsVisibleForm.Execute_cm(AGrid: TCustomGridEh): Boolean;
begin
  with Create(nil) do  // В классовом методе Self - это класс, т.е. здесь
  try                  // Create(nil) эквиваленнтно TColumnsVisibleForm.Create(nil)
    ReadColumnsEh(AGrid as TDBGridEh);
    Left := Mouse.CursorPos.X + 45;
    Top := Mouse.CursorPos.Y + 35;
    Result := (ShowModal = mrOk);
    if Result then
      WriteColumnsEh(AGrid as TDBGridEh);
  finally
    Free;
  end;
end;

procedure TColumnsVisibleForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult = mrOk then
    if not CheckValid then
      Action := caNone;
end;

function TColumnsVisibleForm.CheckValid: Boolean;
var
  i: Integer;
begin
  Result := True;
  for i:=0 to CheckListBox1.Count-1 do
    if CheckListBox1.Checked[i] then
      Exit;
  MsgBoxWarning('Должна быть видимой хотя бы одна колонка');
  Result := False;
end;

procedure TColumnsVisibleForm.ReadColumnsEh(AGrid: TDBGridEh);
var
  i: Integer;
begin
  CheckListBox1.Items.Clear;
  for i:=0 to AGrid.Columns.Count-1 do
  begin
    CheckListBox1.Items.Add(AGrid.Columns.Items[i].Title.Caption);
    CheckListBox1.Checked[i] := AGrid.Columns.Items[i].Visible;
    // Колонки с Tag <> 0 запрещено скрывать
    CheckListBox1.ItemEnabled[i] := (AGrid.Columns.Items[i].Tag = 0);
    if not CheckListBox1.ItemEnabled[i] then
      CheckListBox1.Checked[i] := True;       
  end;
end;

procedure TColumnsVisibleForm.WriteColumnsEh(AGrid: TDBGridEh);
var
  i: Integer;
begin
  for i:=0 to CheckListBox1.Count-1 do
    AGrid.Columns.Items[i].Visible := CheckListBox1.Checked[i];
end;

end.

  TColumnsVisibleForm.Execute_cm(DBGridEh1);