{процедура создания формы и начальных установок}
  procedure TForm1.FormCreate(Sender: TObject);
    var
      Find:TSearchRec;
      i:integer;
      SMenu:TMenuItem;
    begin{FormCreate}
. . .
      {проверка возможности работы с MSOffice-Excel}
      try MSApp:=CreateOLEObject('Excel.Application');
      except ShowMessage('Error: cannot open MSApplication - Exel');end;
      {Формирование списка меню "Выбеоите файл"}
      if FindFirst(Path+'\work\*.xls',faAnyFile,Find)=0then
        begin
          Form1.MainMenu1.Items[0].Enabled:=True;
          repeat{создаем пункт меню с именев файла}
            SMenu:=TMenuItem.Create(MainMenu1);
            SMenu.Caption:=Find.Name;
            SMenu.OnClick:=Form1.SelectMenu;
            Form1.MainMenu1.Items[0].Add(SMenu);
          until FindNext(Find)<>0;
          FindClose(Find);
        end ;
    end;{FormCreate}
. . .
  procedure LoadGrid(a:string);
    var
      Book:OleVariant;
      i,j:integer;
    begin{LoadGrid}
      Form1.Label1.Caption:='Загружаю файл:'+Path+'\work\'+a;{информируем пользователя}
      MSApp.WorkBooks.Open(Path+'\work\'+a, 0, True);{открываем Excel-файл}
      {устанавливаем размеры таблицы}
      Form1.StringGrid1.ColCount:=MSApp.ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count;
      Form1.StringGrid1.RowCount:=MSApp.ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count;
      {готовимся к быстрому копированию}
      Book:=MSApp.ActiveWorkbook.ActiveSheet.UsedRange.Value;
      {копируем в рабочую Грид}
      for i:=0 to Form1.StringGrid1.RowCount-1 do
        for j:=0 to Form1.StringGrid1.ColCount-1 do
          Form1.StringGrid1.Cells[j,i]:=Book[i+1,j+1];
      MSApp.WorkBooks.Close;{закрываем Excel-файл}
    end;{LoadGrid}

function StrToInt(const S: string): Integer;

function TryStrToInt(const S: string; out Value:Integer):Boolean;

if TryStrToInt(stroкa,number) then begin . . . end
  else ShowMessage(' типа бум-бум по голове ');

if TryStrToInt(Exc.Range['A5'],number) then = if number=0 then begin . . . end 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  begin
    Form1.Button1.Caption:='Show 2';
    Form1.Button2.Caption:='Show 1';
    Form1.Edit2.Visible:=false;
    Form1.Button2.Visible:=false;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Edit1.Hide;
  Form1.Button1.Hide;
  Form1.Edit2.Visible:=true;
  Form1.Button2.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Edit2.Hide;
  Form1.Button2.Hide;
  Form1.Edit1.Visible:=true;
  Form1.Button1.Visible:=true;
end;
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:= 'X';
StringGrid1.Cells[1,0]:= 'Y';
StringGrid1.Cells[2,0]:= 'Z';
Form1.Button1.Caption:='Отобразить окно';
Form1.Button2.Caption:='Скрыть окно';
Form1.Button2.Visible:=false;
end;

end.
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Button1.Hide;
Exc.Quit;
Form1.Button2.Visible:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Button2.Hide;
Exc.Quit; / Это просто прописал для закрытия, нужно чтобы скрывала 
Form1.Button1.Visible:=true;
end;