Экранная форма

[min@y™]

Зачем использовать stringlist, если он тут не нужен?

ну не нужен, так не нужен.
мучайся, мне всё равно.

[Xo6ut]

procedure TForm1.Button1Click(Sender: TObject);
var x:array of integer;
f:textfile;
a,n,i:integer;
begin
assignfile(f,'111.txt');//файл в папке с программой
reset(f);
n:=0;
while not seekeof(f) do
begin
read(f,a);
inc(n);
setlength(x,n);
x[n-1]:=a;
end;
closefile(f);
for i:=0 to n-1 do
Memo1.Lines.Add('x'+inttostr(i+1)+' ='+inttostr(x[i]));
end;

[lomastr_]

а массив тут зачем?

[Xo6ut]

в задании сказано, что есть массив чисел X