program fileStringList;
uses classes, sysutils;

var strList: TStringList;
    strListLine: TStringList;
    i, j: integer;

begin
  strList := TStringList.Create;
  strListLine := TStringList.Create;
  strListLine.Delimiter := ' ';
  strList.LoadFromFile('test.txt');
  for i:=0 to strList.count-1 do
    begin
        strListLine.DelimitedText := strList[i];
        for j:=0 to strListLine.count-1 do
            begin
                writeln('Line' + intToStr(i)  + ', column' + intToStr(j) + ':' + strListLine[j]);
            end;
    end;
  strList.free;
end.