Аффинные преобразования

[meradone]

Нужно реализовать аффинные преобразования в Delphi.
Зеркальное отображение и переворот я вроде как сделал. Вот остальное даже и не догадываюсь как сделать. Помогите с растягиванием фигур...
Вот что я на кодил с горем пополам:
Button1Click - зеркальное отображение;
Button2Click - переворот;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
  SrcRect, DstRect: TRect;
begin
  x := PaintBox1.Width;
  Y := PaintBox1.Height;
  SrcRect := Rect(-1, -1, X, Y);
  DstRect := Rect(X, -1, -1, Y);
  PaintBox1.Canvas.CopyRect(DstRect, PaintBox1.Canvas, SrcRect);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  X, Y: Integer;
  SrcRect, DstRect: TRect;
begin
  x := PaintBox1.Width;
  Y := PaintBox1.Height;
  SrcRect := Rect(-1, -1, X, Y);
  DstRect := Rect(-1, Y, X, -1);
  PaintBox1.Canvas.CopyRect(DstRect, PaintBox1.Canvas, SrcRect);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  PaintBox1.Canvas.LineTo(100,150);
end;

end.