Как найти страну с наибольшей добычей нефти?

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
StringGrid1: TStringGrid;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// Load a TStringGrid from a file
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
i,j: Integer;
S: String;
begin
AssignFile(F, 'C:\Users\serez\Downloads\Delphi\laba2.txt');
Reset(F);
For i:= 0 To StringGrid1.ColCount - 1 Do
For j:= 0 To StringGrid1.RowCount - 1 Do
begin
Readln(F, S);
StringGrid1.Cells[i,j]:= S;
end;
CloseFile(F);
end;
/ НЕФТЬ
procedure TForm1.Button2Click(Sender: TObject);
var
j: Integer;
Data,Data1: real;
begin
For j:= 0 To StringGrid1.RowCount - 1 Do;
begin
// перевожу тип данных к float, но выдает ошибку.
Data := StrToFloat(StringGrid1.Cells[1,j]);
Data1:= StrToFloat(StringGrid1.Cells[1,j+1]);
if Data1 > Data then
Data:= Data1;
end;
Label1.Caption:=FloatToStr(Data);
end;

Страна
США
ФРГ
Англия
Франция
Италия
Канада
Япония
Сталь
102.3
24.5
22.0
14.1
6.8
4.6
12.6
Уголь
466.6
162.2
227.2
58.2
1.15
11.1
52.8
Нефть
353.6
4.0
0.08
1.4
1.2
24.5
0.22