Рисование в разных системах координат

[Marsel737]

Всем доброго времени суток!

У меня такая проблема, я рисую на канве PaintBox'а прямоугольник, а потом хочу его отобразить на панели в 3д, в виде параллелепипеда, через OpenGL, на канве координаты идут от 0 до Width и Height, а в OpenGL от -1 до 1.

Я преобразую координаты:

type
  TReal = Double;

type
  TPointGL = packed record
    X: TReal;
    Y: TReal;
  end;

function TfrmMain.ConvertCoordinates(const APoint: TPoint): TPointGL;
begin
  Result.X := 0;
  Result.Y := 0;
  if APoint.X < pbOutput.Width / 2 then
    Result.X := -(pbOutput.Width / 2 - APoint.X) / (pbOutput.Width)
  else
    Result.X := (APoint.X - pbOutput.Width) / (pbOutput.Width);
  if APoint.Y < pbOutput.Height / 2 then
    Result.Y := (pbOutput.Height / 2 - APoint.Y) / (pbOutput.Height)
  else
    Result.Y := -(APoint.Y - pbOutput.Height) / (pbOutput.Height);
end;

Но как то криво они преобразуется, что не так в моей функции?