mam następujący kod aplikacji i mi ciągl wywala jakiś błąd czy ktoś mi może powiedzieć co tu jest źle?
program Project1;
const
_Stala = 10; * powinno być 100 div liczba_autocreateforms
begin
Aplication.Initialize;
fWinieta:=TfWinieta.Create(Application);
try
fWinieta.Show;
- sekcja tworząca formularz z listy autocreate
Application.CreateForm(TForm1, Form1);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
Application.CreateForm(TForm2, Form2);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
Application.CreateForm(TForm3, Form3);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
Application.CreateForm(TForm4, Form4);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
finally
fWinieta.Free;
end;
Application.Run;
end;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.Run;
end.