Разделить строку данных на отдельные числа

//DownLoad the file
procedure TForm1.Button2Click(Sender: TObject);
 
  var
  i,j,m,n:integer;
  s:string;
  input:TextFile;
 
begin
 
if OpenDialog1.Execute then
      begin
 
    AssignFile(input, OpenDialog1.FileName);
    Reset(input);
  
     m:=strtoint(Edit1.Text);
     n:=strtoint(Edit2.Text);
 
    for i := 0 to m - 1 do
    begin
       for j := 0 to n - 1 do
       begin
         Readln(input, s);
         StringGrid1.Cells[i,j] := s;
       end;
       Readln(input);
    end;
       CloseFile(input);
  end;

var
 Tstr,TstrBuff:TStringList;
 i,j:Integer;
begin
 
if OpenDialog1.Execute then
Begin
TstrBuff:= TStringList.Create;
TstrBuff.Delimiter:=' ';
 
Tstr:= TStringList.Create;
Tstr.LoadFromFile(OpenDialog1.FileName);
 
StringGrid1.RowCount:= Tstr.Count+1; // задаем количество строк в таблице
 
for i:=0 to Tstr.Count-1 do
 begin
 // определяем, нужно ли расширить таблицу (ведь бывают случаи, когда в файле с данными, строки имеют не одинаковое кол-во элементов )
 TstrBuff.DelimitedText:=Tstr.Strings[i];
 if TstrBuff.Count> StringGrid1.ColCount-1 then  StringGrid1.ColCount:=TstrBuff.Count+1;
 
 // заполняем очередную строку таблицы соответствующими данными
 StringGrid1.Rows[i+1].Delimiter:=' ';
 StringGrid1.Rows[i+1].DelimitedText:= Tstr.Strings[i];
  // смещаем строку на одну колонку правее, иначе строка будет заполнена с первой ячейки, а там обычно место для заголовка
  for j:=StringGrid1.ColCount downto 0 do
   StringGrid1.Cells[j+1,i+1]:=StringGrid1.Cells[j,i+1];
   StringGrid1.Cells[0,i+1]:='';
 end;
Tstr.Free;
TstrBuff.Free;
end;
 
end;