Работа с графикой

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls;
 
   function y1(r2:integer):integer;
  external'Project2.dll'
  function x1(r1:integer):integer;
  external'Project2.dll'
  function y(r2:integer):integer;
  external'Project2.dll'
  function x(r1:integer):integer;
  external'Project2.dll'
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Shape1: TShape;
    Timer2: TTimer;
    Shape2: TShape;
    Shape3: TShape;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
 
 form1.Panel1.Height:=form1.ClientHeight-19;
 end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
t: real;
speed:integer;
 
 
 
  begin
 
   t := 0;
  repeat
  t := t + pi / 500;                            //1  ìàøèíà
  canvas.Pixels[x(150), y(100)] := clblue;
 until t >= 2 * pi;
 form1.Shape1.Left:= x1(150);
  form1.Shape1.Top:=y1(100);
   { Speed:=10;
    Repaint;
   Sleep(Speed); }
 begin
   t := t + pi / 500;                   //2 Ìàøèíà
   canvas.Pixels[x(170), y(120)] := clblue;
 
  form1.Shape2.Left:= x1(170);
  form1.Shape2.Top:=y1(120);
  end;
begin
   t := t + pi / 500;                           //3 ìàøèíà
   canvas.Pixels[x(190), y(140)] := clblue;
 
  form1.Shape3.Left:= x1(190);
  form1.Shape3.Top:=y1(140);
  end;
 
 
 
 
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Timer1.Enabled:=true;
end;
 
end.