Динамическое создание нескольких форм

[Gypsy]

Здравствуйте, уважаемые!
Перерыл полинтернета, не нашел решения своей задачи.
Задача такая: требуется в режиме рантайм время от времени создавать и убивать формы (кол-во от 1 до n, const n=10). Формы в тоже время не пустые, на них присутствуют TStringGrid, TTimer. Я сделал так:

...

type TStakan = class (TForm)
s: TStringGrid;
t: TTimer;
public
procedure CloseStakan(Sender: TObject; var Action: TCloseAction);
end;

var Stakan: array[1..MaxCountStak] of TStakan;

procedure CreateStakan(sname: string);
procedure UpdateStakan;

implementation

procedure CreateStakan(sname: string);
begin
Application.CreateForm(TStakan,Stak an[i]);
Stakan[i].Show;
end;

Выводится ошибка: "Resourse TStakan nof found"

Подскажите, пожайлуста, что делаю не так?

[Stilet]

procedure CreateStakan(sname: string);
Var s:TStakan;
begin
 s:=Tstakan.Create;
 Stakan[i]:=s;
 Stakan[i].Show;
end;

Но я бы не массивами делал.

[Gypsy]

Сообщение от Stilet

procedure CreateStakan(sname: string);
Var s:TStakan;
begin
 s:=Tstakan.Create;
 Stakan[i]:=s;
 Stakan[i].Show;
end;

Но я бы не массивами делал.

Не работает(
На строчку s:=TStakan.Create выдает "Not enough actual parameters"

[Пепел Феникса]

s:=Tstakan.Create(Form1);
или Application;
можно вообще nil поставить...

[Gypsy]

Сообщение от Пепел Феникса

s:=Tstakan.Create(Form1);
или Application;
можно вообще nil поставить...

Тоже не работает(
Пробовал и aaplication и Form1 и nil. Ошибка как и вначале "Resourse TStakan nof found"

Забыл сказать, может важно. Это все находится не в unit1, а в другом unt'e.

[Пепел Феникса]

а вы не стерли директиву {$R *.dfm} из кода?(она обычно после implementation стоит...но можно и сдвинуть её)

[Gypsy]

Сообщение от Пепел Феникса

а вы не стерли директиву {$R *.dfm} из кода?(она обычно после implementation стоит...но можно и сдвинуть её)

Если я ее стираю, то Form1, которая создана обычным способом, теперь не запускается. Ошибка: "Resourse TForm1 nof found"

[Пепел Феникса]

это касается любой формы.
стирать её нельзя(эту директиву)

[Gypsy]

Сообщение от Пепел Феникса

это касается любой формы.
стирать её нельзя(эту директиву)

Ну так я ее и не стирал. Попробал просто.
А так с этой дериктивой ошибка все та же: "Resourse TStakan nof found"

[Пепел Феникса]

в юните где описан TStakan есть эта директива?
рядом с файлом этого юнита есть одноименный dfm файл?