Описать функцию, которая находит максимальную длину строк текстового файла

uses math;
 
function max_len(f_name : string):integer;
var
 i : integer;
 t_list : tStringList;
begin
  Result := 0;
  t_list := tStringList.Create;
  t_list.LoadFromFile(f_name);
  for i:=0 to t_list.Count-1 do
     Result := max(Result, Length(t_list.Strings[i]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var t_list : tStringList;
    i, max : integer;
begin
t_list := tStringList.Create;
t_list.LoadFromFile('text.txt');//файл в папке с программмой
max:=0;
for i:=0 to t_list.Count-1 do
if length(t_list[i])>max then max:=length(t_list[i]);
ShowMessage('Максимальная длина строки='+inttostr(max)); 
end;

{$R *.dfm}
uses math;
 
function max_len(f_name : string):integer;
var
 i : integer;
 t_list : tStringList;
begin
  Result := 0;
  t_list := tStringList.Create;
  t_list.LoadFromFile(f_name);
  for i:=0 to t_list.Count-1 do
     Result := max(Result, Length(t_list.Strings[i]));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Максимальная длина строки='+inttostr(max_len('text.txt')));//файл в папке с программой
end;
 
end.