Напомощь вылетает ошибка

[Timur132]

Я создал систему, которая должна получать имя а в следуйшей форме
показывать их, но почему-то вылетает странная ошибка.Помогите!
Unit, который получает имя.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
#include "Unit1.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
static String Name1, Name2, Name3;
void __fastcall TForm3::Button1Click(TObject *Sender)
{
  Name1 = Edit1->Text;
  Name2 = Edit2->Text;
  Name3 = Edit3->Text;
  TStringList *Names;
  Names = new TStringList;
  Names->Add(Name1);
  Names->Add(Name2);
  Names->Add(Name3);
  Names->SaveToFile("Names.txt");
  Form4->Show();
  Form3->Visible = false;
}
//---------------------------------------------------------------------------

Unit, который выдаёт имя.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit4.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 String NamesX1, NamesX2, NamesX3;
 const String File ="Names.txt";
 TStringList *Names;
void __fastcall TForm4::FormCreate(TObject *Sender)
{
 Names = new TStirngList;
 Names->LoadFromFile(File);
 NamesX1 = Names->Strings [1];
 NamesX2 = Names->Strings [2];
 NamesX3 = Names->Strings [3];
 Panel1->Caption = NamesX1;
 Panel2->Caption = NamesX2;
 Panel3->Caption = NamesX3;
}
//---------------------------------------------------------------------------

[min@y™]

Скомпилил твой код.
Действительно, ошибка довольно странная.

138.png

Ерунда какая-то, ничо не понимаю...

[Stilet]

почему-то вылетает странная ошибка

Текст или скрин ошибки в студию.

[p51x]

Ну а для начала можно все-таки начать строки в стринглисте нумеровать с 0...

[min@y™]

Ну а для начала можно все-таки начать строки в стринглисте нумеровать с 0...

...а затем прекратить безобразия с утечками памяти!