Масштабирование треугольника в TImage, TCanvas

var
  Form1: TForm1;
  i, j: Integer; //äëÿ öèêëà
  //ïåðåìåííûå äëÿ öåíòðîâêè èçîáðàæåíèÿ
  minG: Integer;
  maxG: Integer;
  //ïåðåìåííûå äëÿ îïðåäåëåíèÿ ñòîðîíû ñäâèãà
  minV: Integer;
  maxV: Integer;
  //ïåðåìåííûå äëÿ îïðåäåëåíèÿ êîýôôèöèåíòà ñäâèãà
  sG: Integer;
  sV: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Canvas do
  begin
    Pen.Color := clRed;
    Brush.Color := clRed;
    Polygon([Point(150, 20), Point(180, 100), Point(80, 140)]);
  end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  //ïðåäïîëîæèì íà÷àëî îòñ÷åòà öåíòð
  minG := 100;
  maxG := 100;
  minV := 100;
  maxV := 100;
 
  //çàïèøåì çíà÷åíèÿ â ïåðåìåííûå
  for i := 0 to Image1.Height - 1 do
    for j := 0 to Image1.Width - 1 do
      if Image1.Canvas.Pixels[j, i] = clRed then
      begin
        if j < minG then
          minG := j; //ìèí ïî ãîðèç
        if j > maxG then
          maxG := j; //ìàêñ ïî ãîðèç
        if i < minV then
          minV := i; //ìèí ïî âåðò
        if i > maxV then
          maxV := i; //ìàêñ ïî âåðò
      end;
 
  //îðåäåëÿåì êîýôôèöèýíò ñäâèãà
  sG := (minG + (200 - maxG)) div 2;
  sV := (minV + (200 - maxV)) div 2;
 
  //ïåðåðèñîâêà òðåóãîëüíèêà â èìàãó-2 ÷åòêî ïî öåíòðó
  for i := 0 to Image1.Height - 1 do
    for j := 0 to Image1.Width - 1 do
      if Image1.Canvas.Pixels[j, i] = clRed then
        Image2.Canvas.Pixels[j + sG - minG, i + sV - minV] := clRed;
end;