[Assistant]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

<b>var</b>   i, N: Integer;   list: TStringList; <b>begin</b>   n := 5;   <b>if </b>OpenDialog1.Execute <b>then</b>   <b>begin</b>     list := TStringList.Create;     <b>try</b>       list.LoadFromFile(OpenDialog1.FileName);       StrinGgrid1.RowCount := list.Count-N;       <b>for </b>i:=N <b>to </b>list.Count-1 <b>do</b>       <b>begin</b>         StringGrid1.Rows[i-N].CommaText := list.Strings[i];       <b>end</b>;       list.Free;     <b>finally</b>     <b>end</b>;   <b>end</b>; <b>end</b>;