StringGrid в For не заполняется

for i:=1 to length(ar) do
      if ar[i]<>'' then
        begin
            StringGrid1.Cells[i,0]:=copy(ar[i],0,pos(' ',ar[i]));
            StringGrid1.Cells[i,1]:=copy(ar[i],0,posex(' ',ar[i],pos(' ',ar[i])));
             Memo1.Lines.Add(ar[i]);
        end;

procedure TForm1.Button1Click(Sender: TObject);
var ar:array[1..4] of string;
    i:byte;
begin
ar[1]:='11 22 33 44';
ar[2]:='55 22 33 44';
ar[3]:='66 22 33 44';
ar[4]:='77 22 33 44';
for i:=1 to length(ar) do
if ar[i]<>'' then
  begin
    StringGrid1.Cells[i,0]:=copy(ar[i],1,pos(' ',ar[i]));
    StringGrid1.Cells[i,1]:=copy(ar[i],1,posex(' ',ar[i],pos(' ',ar[i])));
    Memo1.Lines.Add(ar[i]);
  end;
end;

Alcatel*OT-117 от*529 до*1*090
Alcatel*OT-132 от*540 до*560
Билайн*E600 540
Alcatel*ONE TOUCH 228 от*547 до*890
Alcatel*OT-209 550
Alcatel*OT-217D от*554 до*1*190
МТС*262 590
Alcatel*ONE TOUCH 232 590
Alcatel*OT-233 от*590 до*630
МегаФон*G2100 649
Fly*DS103D от*650 до*740
Samsung*GT-E1200 от*664 до*1*590
TeXet*TM-D107 от*679 до*1*703
Nokia*105 от*688 до*1*100
Fly*DS103 от*690 до*790
KENEKSI*C2 690
Alcatel*OneTouch 208 690
Nokia*1280 от*695 до*990
TeXet*TM-D108 до*2*126
Fly*TS91 от*739 до*960
Билайн*A100 740
Fly*TS90 от*749 до*1*390
Fly*DS106 от*752 до*1*190
Nokia*100 от*775 до*1*196
Fly*DS105D от*777 до*990
Philips*E1500 от*832 до*1*490
Alcatel*OT-292 от*835 до*1*390
Samsung*GT-E1202 от*854 до*1*830
Explay*Primo от*863 до*1*250
Alcatel*One Touch 1030D до*990
TeXet*TM-B111 от*889 до*1*120
Samsung*E1282 от*889 до*1*982
KENEKSI*S5 890
Philips*Xenium X126 890
KENEKSI*S6 890
Samsung*E1080 890
Nokia*101 от*913 до*1*615
Samsung*E1150 от*950 до*2*009
Fly*DS113 975
Samsung*E1182 от*980 до*1*940
Alcatel*OneTouch 311 990
TeXet*TM-B312 от*999 до*2*587
TeXet*TM-B110 от*1*028 до*2*516
Fly*DS115 от*1*030 до*2*190
TeXet*TM-D105 1*030
ONEXT*Care-Phone 4 от*1*070 до*2*590