Проблемка с построением программы

[Clockgen]

хм,а зачем эта форма? Мне же придется все равно самому собирать ее,а исходника этого проекта нет(

Вот же вроде форма исходя из моего кода,я просто не отделил ее:

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,c:real;
k: tGen;
i,j:integer;
f1: Tfilter;
x,y,y1,h: real;
res: Comp;
begin
a:=38;
c:=StrToInt(SpinEdit3.text);
K:=tgen.Init1(c,a);
F1:=Tfilter.Init2;
Chart1.Series[0].Clear;
Chart1.Series[1].Clear;
for i:=0 to 200 do begin
Chart1.Series[0].AddXY(k.getTime(i),k.getValue(i));
Chart1.Series[1].AddXY(k.getTime(i),F1.getValueP(k.getValue(i)));
end;
for i:=1 to 380 do begin
if x<=k.getValue(i) then
x:=k.getValue(i);
y:=f1.getValueP(k.getValue(i));
if i>20 then
if y1<=y then
y1:=y;
res:=20*log10(abs(y1/x));
memo2.Lines.Add(FloatToStr(res));
end;
end;
end.

[min@y™]

ну как-то так...

[min@y™]

хм,а зачем эта форма?

Секрет!..

[makarovd]

Сообщение от min@y™

ну как-то так...

Добрый день!
Воспользовалась вашими материалами, мое восхищение и уважение!
Уж извините, немного поправила под свою задачу в курсовой. Но препод не принимает, требует весь код в одном проекте и чтобы *.exe не создавался при запуске проекта, а по-простому, проект запускать из среды delphi. Головы не хватает сообразить, что поправить в вашей работе. Подскажите, пожалуйста!