Поиск мин. и макс. значения по третьему столбцу в тхт файле

var
  List: TStringList;
  i, min, max: integer;
begin
  List := TStringList.Create;
  List.LoadFromFile('0001.txt');
 
  //поиск минимального
  min := StrToInt(Copy(List[0], 22, 24));
  for i := 1 to List.Count - 1 do
    if StrToInt(Copy(List[i], 22, 24)) < min then
      min := StrToInt(List[i]);
 
  //поиск максимального
  max := StrToInt(Copy(List[0], 22, 24));
  for i := 1 to List.Count - 1 do
    if StrToInt(Copy(List[i], 22, 24)) > max then
      max := StrToInt(List[i]);
 
  //вывод
  Label1.Caption := 'Минимальное = ' + IntToStr(min);
  Label2.Caption := 'Максимальное = ' + IntToStr(max);
  List.Free;
end;

var
  Rows, Cols: TStringList;
  i: Integer;
  MinValue, MaxValue: Real;
begin
 Rows := TStringList.Create;
 Rows.LoadFromFile('0001.txt');
 for i := 0 to Rows.Count - 1
 do begin
    Cols := TStringList.Create;
    Cols.Delimiter := #32;
    Cols.DelimitedText := Rows.Strings[i];
    if i = 0
    then begin
         MinValue := StrToFloat(Cols.Strings[2]);
         MaxValue := MinValue;
         end;
    MinValue := Min(MinValue, StrToFloat(Cols.Strings[2]));
    MaxValue := Max(MaxValue, StrToFloat(Cols.Strings[2]));
    Cols.Free;
    end;
 Label1.Caption := 'Минимальное = ' + FloatToStr(MinValue);
 Label2.Caption := 'Максимальное = ' + FloatToStr(MaxValue);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
 if not OpenDialog1.Execute then Exit;
 if OpenDialog1.FileName = '' then Exit;
 if TXTData = nil then TXTData:= TStringList.Create else TXTData.Clear;
 TXTData.LoadFromFile(OpenDialog1.FileName);
 ListBox1.Items:=TXTData;
 Button2.Enabled:=True;
end;

Cols.Delimiter := #32;

Cols.Delimiter := #9;

VAR
list,num:TStringList;
i:Integer;
min,max:Double;
s:String;
begin
if not OpenDialog1.Execute then exit;
list := TStringList.Create;
num  := TStringList.Create;
list.LoadFromFile(OpenDialog1.FileName);
 
for i := 0 to list.Count-1 do begin
    s := list[i];
    s := Copy(s,LastDelimiter(#9,s)+1,Length(s)-LastDelimiter(#9,s)+1);
    s := Trim(s);
    num.Add(s);
    //Memo1.Lines.Add(s);
    end;
list.Free;
 
min := StrToFloat(num[0]);
max := StrToFloat(num[0]);
 
for i := 1 to num.Count-1 do begin
    if StrToFloat(num[i]) < min then min := StrToFloat(num[i]);
    if StrToFloat(num[i]) > max then max := StrToFloat(num[i]);
    end;
num.Free;
 
Memo1.Lines.Add('Min=' + FloatToStr(min));
Memo1.Lines.Add('Max=' + FloatToStr(max));
end;