Anzahl der Zeichen in einer Zeile

[Christian18]

hier einmal mei code den ich bis jetzt habe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var open : TOpenDialog;
      f : TextFile;
      z : array of char;
      i : Integer;
      s : String;
begin
  SetLength(z,10);

  open:=TOpenDialog.Create(self);

  if
    open.Execute
  then
    begin
      AssignFile(f, open.FileName);
      Reset(f);
      for i:=0 to 9 do
        begin
          Read(f, z[i]);
        end;

      CloseFile(f);

      for i:=0 to 9 do
        begin
          s:=s+z[i];
        end;
      Label1.Caption:=s;
    end;
end;

ich verstehe nicht was ich jetzt machen soll.

Mit freundlichen Grüßen Christian18