Исправить ошибку

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
F: File of char;
Ch: Char;
Q: Boolean;
Label111;
begin
Q:= False;
assignfile (F, 'text.txt');
reset (F);
while not EOF (F) do
begin
111:Read (F,Ch);
if (Ch='"') then
begin
if q=true then q:=false
else q:=true;
goto 111;
end;
if q then Memo1.Lines.Add(Ch);
end;
Closefile (F);
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
F: File of char;
Ch, OutStr: string;
Q: Boolean;
i:integer;
begin
Q:= False;
assignfile (F, 'text.txt');
reset (F);
OutStr:='';
q:=false;
while not EOF (F) do
begin
Readln (F,Ch);
for i:=1 to Length(Ch) do
begin
if (Ch[i]='"') and (not q) then q:=true;
if (Ch[i]='"') and (q) then 
begin
q:=false;
Memo1.Lines.Add(OutStr);
OutStr:='';
end;
if q then OutStr:=OutStr+Ch[i];
end;
end;
Closefile (F);
end;

Readln (F,Ch);