Delphi设计形象的动态三维拼图

procedure TForm1.Timer1Timer(Sender: TObject); 

begin 

　self.VtChart1.Row:=0; 

　self.VtChart1.Column:=0; 

　self.VtChart1.Data:=FloatToStr(Random(200)); 

end;

unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes,Graphics, 
  Controls, Forms,Dialogs, OleCtrls, VCFI, ExtCtrls, math;
type
　TForm1 = class(TForm)
　VtChart1: TVtChart;
　Timer1: TTimer;
　procedure Timer1Timer(Sender: TObject);
　procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;

var
　Form1: TForm1;
　implementation
　{$R *.dfm}
　procedure TForm1.Timer1Timer(Sender: TObject);
begin
　self.VtChart1.Row:=0;
　self.VtChart1.Column:=0;
　self.VtChart1.Data:=FloatToStr(Random(200));
end;

procedure TForm1.FormCreate(Sender: TObject);
　begin
Randomize();
　end;
end.