TXT to StringGrid Опции

[Desktop_4]

Файл например содержит:

0 0 1 0 0 1 0 0 0 0 
0 0 0 1 0 0 1 0 1 0 
1 1 1 0 0 0 0 0 1 0 
0 0 1 0 1 1 0 1 1 0 
0 0 1 0 1 0 1 1 1 1 
1 0 1 1 1 1 1 0 1 0 
0 1 0 1 1 1 1 1 0 0 
1 1 1 1 0 0 1 1 1 1 
1 0 0 1 0 1 0 0 1 1 
0 0 0 0 1 0 0 0 1 1 

Надо этот файл загрузить в StringGrid не трогая FixedRows/Cols...

Есть процедура:

    procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName) ;
var f: TextFile; iTmp, i, k: Integer;
strTemp: String ;
begin
AssignFile(f, FileName) ;
Reset(f) ;
with StringGrid do
begin
// Get number of columns
Readln(f, iTmp) ;
ColCount := iTmp;
// Get number of rows
Readln(f, iTmp) ;
RowCount := iTmp;
// loop through cells & fill in values
    for k := FixedRows to RowCount - 1 do begin
      for i := FixedCols to ColCount - 1 do
      begin
      Readln(f, strTemp) ;
      Cells[i, k] := strTemp;
      end ;
    end ;
  CloseFile(f) ;
  end ;
  end;

Но грузится первая строка в одну ячейку.
Как правильно загрузить из файла в StringGrid ?
И как сделать проверку соотвецтвия формату файла который загружается ?

[volvo]

Можно, например, читать не число, а строку:

    ...
    // Get number of columns
    Readln(f, s);
    iTmp := StrToIntDef(s, -1);
    if iTmp = -1 then { <--- Если условие выполнено, то прочитанная строка содержит не одно число }
    ...