[cyber922]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  fName: String[80];
  buf: string[80]; begin
   fName := Edit1.Text; AssignFile(f, fName);
  {$I-}
  Reset(f); 
  {$I+}

  if IOResult <> 0 then
  begin
    MessageDlgt 'Database  connection error', mtError,[mbOK],0); // ругается вот тут.
end;
  end;
procedure TForm1.Button2Click(Sender: TObject);
var
  f: TextFile;
  fName: string[80];
  i: integer;begin
    fName := Edit1.Text;
  AssignFile(f, fName);
  Rewrite(f); // открыть для перезаписи
  // запись в файл
  for i := 0 to Memo1.Lines.Count do
    writeln(f, Memo1.Lines[i]);
  CloseFile(f); // закрыть файл
  MessageDlg('Данные записаны в файл ', mtlnformation, [mbOk], 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end. 
 И ещё вот задачка, вроде как ы скомпилировалось все, все работает НО при работе выдает ошибку 
 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button6Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n,i,min,max,s:integer;
  sr:real;
  a:array[1..1000]of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  min := a[1];
for  i:= 2 to n do          
if (min>a[i])then
min := a[i];
edit1.Text:='min = '+inttostr(min);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 max := a[1];
for  i:= 2 to n do           
if (max<a[i])then
max := a[i];
edit1.Text:='max = '+inttostr(max);
end;

procedure TForm1.Button3Click(Sender: TObject);
var

p:int64; begin
 p:= 1;
for i:= 1 to n do
p:=p*a[i];
edit1.Text := intToStr(p);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
s := 0;
for i:= 1 to n do           
s:=s+a[i];
edit1.Text := intToStr(s);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  s := 0;
for i:= 1 to n do
s:=s+a[i];                  
edit1.Text := FloatToStr(s/n);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
randomize;
for i := 1 to n do begin
a[i]:=random(2000)-1000;
Memo1.Text:=memo1.Text+' ' + inttostr(a[i]);
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
n:=strtoint(edit1.text);
end;
end.

Админ: Пользуемся тегами при оформлении кода!

текст ошибки выдает когда он всё подсчитал( причем выполняет все правильно) вот ошибка "is not a valid integer value" Что эт такое? помогите исправить эти ошибки.. заранеее спасибо)