Io ho inserito codice pascal per leggere un file di testo. ma il risultato che ottengo sono 2 errori ES104 ed ES103.

function Tform1.Valida_estensione(estensione:string):boolea n;
var
testofile :textfile;
buffer:string;
begin
try
AssignFile(testoFile, directory_attuale + '/estensioni.txt');
reset(testofile);
while not (EOF(testoFile)) do
begin
ReadLn(testofile, buffer);
if buffer = estensione then
begin
CloseFile(testoFile);
result := true;
end;
end;
CloseFile(testoFile);
result := false;
except
CloseFile(testoFile);
result := false;
end;
end;
function tform1.Directory_Attuale():string;
var
directory :string;
begin
{trova la directory dell'eseguibile }
setlength(directory,144);
if getcurrentdirectory(144,pchar(directory)) <> 0 then
begin
setlength(directory,strlen(pchar(directory)));
result := directory;
end
else
begin
raiselastwin32error;
end;
end;