procedure TForm1.Timer1Timer(Sender: TObject);
begin
j:=j+1;
if j = n then
 begin
  i := i+1;
  j:=1;
 end;
Label1.caption:=StringGrid[i,j];
end;