Переполнение стека

[Ericnex]

Возникает ошибка как на картинке при обработке метода:

Application.CreateForm(TForm1, Form1);

В чем может быть ошибка?

Привожу код самой формы:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if (Edit1.Text<>'') or (Edit2.Text<>'') then
begin
Table1.First;
if (Table1.Fields[1].AsString=Edit1.Text) and (Table1.Fields[2].AsString=Edit2.Text) then
begin
Form2.Show;
Form1.Close
end
else
Showmessage('Íåâåðíûé ëîãèí èëè ïàðîëü!')
end
else showmessage('Ââåäèòå ëîãèí è ïàðîëü!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.First;
Edit1.Text:=Table1.Fields[1].AsString;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if CheckBox1.Checked=true then
Edit2.PasswordChar:=#0
else
Edit2.PasswordChar:='*';
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then
Edit2.PasswordChar:=#0
else
Edit2.PasswordChar:='*';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
Form3.Edit1.Text:=Form1.Edit1.Text;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Form2.Close;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WindowState:=wsMinimized;
end;

end.

[Stilet]

Если закомментировать все что в OnCreate формы ошибка возникнет?

[Ericnex]

Да. Та же ошибка появляется.

Вкладываю сам проект

[Smitt&Wesson]

Проверить не на чем. Дельфями не пользуюсь, но судя по сообщению, идёт рекурсивный бесконечный вызов какой-то функции. Для более глубокого анализа, нужно запустить прогу под отладчиком.

[Stilet]

Ыххх... У мну твой проект уже не откроется. Делфи такой версии не использую.
Навскидку попробуй компоненты Table поставить Active в False, чтоб он не был открыт в дизайне, а в OnCreate твоих форм уже активируй.
P.S. Тут пока проанализировал код просто почитав. Не понравилось мне вот это место:

procedure TForm2.Table3CalcFields(DataSet: TDataSet);
var a,b,c,d,e,f,g,h: integer;
begin
a:=Table3.FieldbyName('Money').AsInteger;
b:=Table3.FieldbyName('Monday').AsInteger;
c:=Table3.FieldbyName('Tuesday').AsInteger;
d:=Table3.FieldbyName('Wensday').AsInteger;
e:=Table3.Fieldbyname('Thursday').AsInteger;
f:=Table3.FieldbyName('Friday').AsInteger;
g:=Table3.FieldByName('Saturday').AsInteger;
h:=a-(b+c+d+e+g+f);
Table3.FieldByName('Balance').AsInteger:=h;
Table3.Refresh;
end;

Table3.Refresh; это тут зачем?
Как раз такие рефреши и могу бесконечно вызывать перерисовку и пересчет.

[Ericnex]

Table3.Refresh; это тут зачем?
Как раз такие рефреши и могу бесконечно вызывать перерисовку и пересчет.

Да. Проблема была в этом.