[NumLock]

Код:

var
  AStrings: TStrings;
  i: Integer;
  n: Integer;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile('Project1.txt'); // Project1.txt ?
    StringGrid1.RowCount:=AStrings.Count;
    StringGrid1.ColCount:=100; // 100 ? 
    n:=1;
    for i:=0 to AStrings.Count-1 do
    begin
      StringGrid1.Rows[i].Delimiter:=#9;
      StringGrid1.Rows[i].DelimitedText:=AStrings[i]+#9+'|';
      n:=Max(n, StringGrid1.Rows[i].IndexOf('|'));
      StringGrid1.Rows[i].Text:=StringReplace(StringGrid1.Rows[i].Text, '|', '',
        [rfReplaceAll, rfIgnoreCase]);
    end;
    StringGrid1.ColCount:=n;
  finally
    AStrings.Free;
  end;
end;