var biplot1: TBiplotSeries;
  a: Matrix;
  i: Integer;
begin
  a.Size(5,3,false);
  a.RandGauss;
  biplot1 := TBiPlotSeries.Create(Chart1);
  biplot1.ParentChart := Chart1;
  biplot1.ShowArrows := false; // don't show arrows, only lines
  // plot first two columns for each matrix row
  for i := 0 to a.Rows-1 do biplot1.AddXY(a[i,0],a[i,1],'row '+IntToStr(i));
end;

    sMatrix a;
    a.Size(5,3,false);
    a.RandGauss();
    TBiPlotSeries* biplot1 = new TBiPlotSeries(Chart1);
    biplot1->ParentChart = Chart1;
    biplot1->ShowArrows = false;
    for (int i=0; i < a.Rows; i++)
      biplot1->AddXY(a.Values(i,0),a.Values(i,1),"row "+IntToStr(i));