Задача Delphi

[Andruuuuha]

не запускается программа, не могу найти ошибку.Помогите,пожалуйста.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
x: array [1..10] of integer;
otv, i, j, max: integer;
flag:boolean;
  begin
  otv:=0;
  max:=0;
    For i:=1 to memo1.Lines.Count do
    x[i]:=StrToInt(Memo1.Lines[i-1]);
      For i:=1 to memo1.lines.count do
      begin
      flag:=true;
      For j:=2 to x[i]-1 do
        begin
        if (x[i] mod j)=0   then  begin
        flag:=false;
        break
        end;
        end;
      if flag=true then otv:=otv+1
      else if otv>max then
      begin
      max:=otv;
      otv:=0
      end;
      end;
      if max>otv then   edit1.Text:=IntToStr(max)
      else edit1.Text:=IntToStr(otv);
end;
end.

[Аватар]

Не компилируется, а не запускается. Два интерфейсных раздела с разных юнитов в куче. Зачем?

[type_Oleg]

Сообщение от Аватар

с разных юнитов

Вроде с одного.
Или может просто так скопировал в пост, а в проге - нормально ?

[Andruuuuha]

For i:=1 to memo1.Lines.Count do
Вот тут он выдает ошибку