[The Shadow]

Код:

procedure TForm4.FormShow(Sender: TObject);
var i:integer; Lznach:array of real;
begin
      AssignFile(fl,'file\L\L-znach.txt');
      i:=1;
      reset(fl);
      while not eof(fl) do
      begin
            Readln(fl,stroka);
            SetLength(Lznach, Length(Lznach) + 1);
            Lznach[i]:=StrToFloat(stroka);
            i:=i+1;
      end;
end;