그냥 보면 전혀 문제 없는거 같은데 컴파일 하면 런타임 오류가 나옵니다
입출력 에러 같습니다 io 104 에러가 나와요
제 소스에서 잘 못된점좀 지적해주시고 고쳐주셨으면 좋겠습니다
부탁드립니다

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ComCtrls, ExtCtrls, ImageButton, DB, DBTables;

type
TForm1 = class(TForm)
   ImageButton1: TImageButton;
   ImageButton2: TImageButton;
   ImageButton3: TImageButton;
   ImageButton4: TImageButton;
   ProgressBar1: TProgressBar;
   ImageList1: TImageList;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Timer1: TTimer;
   Image1: TImage;
   Panel1: TPanel;
   StatusBar1: TStatusBar;
   Panel2: TPanel;
   Panel3: TPanel;
   Table1: TTable;
   DataSource1: TDataSource;
   procedure ImageButton1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;
R_Word: array of string;
implementation

{$R *.dfm}

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

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
i:=0;
while not eof do
begin
       R_Word[i] := Table1.FieldByName('hahaha').AsString;
       inc(i);
       next;
end;
Label1.Caption := R_Word[0];
end;

end.