Использование 2 форм

MainForm{ну или название вашей другой формы}.Visible:=true;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, main{ну или название вашего другого юнита};

implementation
uses unit2;
 
procedure tform1.button1click(sender);
begin
form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);(создание формы3 из формы1 на которой будут 2 кнопки и 1 stringgrid. но в этом случае надо будет описывать полностью все параметры элементов в коде)
begin
    form3 := tform.Create(application);
try
srt:=tstringgrid.create(nil);
with srt do
begin
    Left:=5;
    Top:=8;
    Width:=612;
    Height:=265;
    ColCount:=11;
    RowCount:=2;
    Options:=[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect];
    TabOrder:=0;
    ondblclick:=StringGrid1DblClick;
    Parent:=form3;
end;
b1:=tbutton.Create(nil);
with b1 do
begin
left:=208;
top:=288;
width:=75;
height:=25;
TabOrder:=1;
caption:='Заполнить';
onclick:=StringGrid1DblClick;
parent:=form3;
end;
b3:=tbutton.Create(nil);
with b3 do
begin
left:=288;
top:=288;
width:=75;
height:=25;
TabOrder:=2;
caption:='Закрыть';
onclick:=B2;
parent:=form3;
end;
with form3 do
begin
  Left:=192;
  Top:=114;
  Width:=636;
  Height:=388;
  Caption:='Архив';
 form3pok(sender);
 ShowModal;
 end;
finally
form3.Release;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
form2.qwe;
end;

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  Unit2 in 'Unit2.pas' {From2}
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
 
end.

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  str=string[10];
   myfile=file of str;
  r=record
     ima:string[15];
     ball:integer;
    end;
  myfile2= file of r;
 
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses unit2;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 begin
  if panel1.Visible then
   Panel1.caption:=Panel1.caption+'À'
 else
  form2.show;
 end;
 
end.