1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

procedure ClearGrid(strGrid: TStringGrid);
var
  i: Integer;
begin
  with strGrid do begin
    RowCount := 2;
    for i:=0 to ColCount-1 do begin
      strGrid.Cells[i, 1] := '';
    end;
  end;  
end;

function AddLineToStrGrid(line: String; strGrid: TStringGrid; separator: String): Integer;
var
  pos: Integer;
begin
  Result := 0;
  strGrid.RowCount := strGrid.RowCount+1;
  pos = Pos(separator, line);
  while not (pos = 0) do begin
    strGrid.Cells[Result, strGrid.RowCount-1] := Copy(line, 1, pos-1);
    Inc(Result);
    line := Delete(line, 1, pos+Length(separator)-1)
    pos = Pos(separator, line);
  end;
  strGrid.Cells[Result, strGrid.RowCount-1] := line;
  Inc(Result);
end;

functionLoadFromFile(fileName: TFileName; strGrid: TStringGrid): Boolean;
var
  iFile: TextFile;
  line: String;
begin
  Result := False;
  AssignFile(iFile, fileName);
  {$I-}
    Reset(iFile);
  {$I+}
  if not (IOResult = 0) then Exit;
  while not Eof(iFile) do begin
    ReadLn(iFile, line);
    if not (AddLineToStrGrid(line, strGrid, '     ') = 3) then begin
      ClearGrid(strGrid);
      Exit;
    end;
  end;
  closeFile(iFile);
  Result := True;
end;