Работа с файлами

procedure TFrmNPazzle.N3Click(Sender: TObject);
var FileName : String;
    Fl       : file of String[68];
    Str      : String[68];
begin
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.FileName;
 
    AssignFile(Fl, FileName) ;
    Reset(Fl);
    While not EOF(Fl) do begin
      Read(Fl, Str); //Ошибка "Incompatible types"
    end;
end;

procedure TFrmNPazzle.N3Click(Sender: TObject);
var FileName : String;
    Fl       : textfile;
    Str      : String;
begin
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.FileName;
 
    AssignFile(Fl, FileName) ;
    Reset(Fl);
    While not EOF(Fl) do begin
      Readln(Fl, Str); //Ошибка "Incompatible types"
    end;
end;

type
  Str68 = String[68];
...
procedure ...
var
  F      : file of Str68;
  StrTmp : Str68;
...

type
  Str68 = String[68];
 
procedure TFrmNPazzle.N3Click(Sender: TObject);
var
    FileName : String;
    Fl       : file of Str68;
    StrTmp   : Str68;
begin
  if not OpenDialog1.Execute then
    Exit;
 
  if not FileExists(OpenDialog1.FileName) then begin
    ShowMessage('Заданный файл не существует. Действие отменено.');
    Exit;
  end;
 
  FileName:=OpenDialog1.FileName;
  AssignFile(Fl, FileName) ;
  Reset(Fl);
  While not EOF(Fl) do begin
    Read(Fl, StrTmp);
    //...
  end;
  CloseFile(Fl);
end;