Непонятки с задачей (Delphi)

[geranton]

array [1..n] of TEdit;

тут ошибка, но я нашел как исправить

Edit: array [1..n] of TEdit;

и тут

for i:=1 to n do

, что-то не впорядке с i я незнаю как исправить, подскажите?

[weech]

Она у вас не инициализирована, под строчкой с кучей переменных типа real добавьте:

i:integer;

[geranton]

Спасибо большое. но всеровно есть ошибка (

  if Edit[i]<>'' then

теперь что-то с Then
Вот текст ошибки
For loop control variable must be simple local variable

[weech]

Так, лоханулся я; сейчас сделал все в делфи, вот:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Math,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x,y,z,c,v,b:real;

implementation
const
    n=2; //ýòî êîëè÷åñòâî âàøèõ ýäèòîâ, èñïðàâüòå, åñëè íóæíî áîëüøå
{$R *.dfm}
var
Edit:array [1..n] of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit[1]:=Edit1;
Edit[2]:=Edit2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
for i:=1 to n do
    if Edit[i].Text<>'' then
    begin
    z:=x*5;
    c:=y*2;
    Label1.Caption:='Ia?aiua iani?iia'+#13+ 'Ioea' + FloatToStr(z)
    +#13+ 'Naoa?' + FloatToStr(c);
    end;
end;


end.