Ошибки после преобразования проекта из Delphi в Lazarus

[riv94]

Здравствуйте, модераторы!
Нашел на просторах рунета проектик по рисованию кривых Безье. Решил преобразовать его из Delphi-формы в Lazarus-форму. Преобразовал средствами Lazarus'а, но при компиляции выпали следующие ошибки!

Код: Выделить всё

Hint: Start of reading config file C:lazarusfpc2.6.4bini386-win32fpc.cfg
Hint: End of reading config file C:lazarusfpc2.6.4bini386-win32fpc.cfg
Free Pascal Compiler version 2.6.4 [2014/06/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling Canvas2.lpr
Compiling C2Unit.pas
C2Unit.pas(20,26) Hint: Parameter "Sender" not used
C2Unit.pas(21,29) Hint: Parameter "Sender" not used
C2Unit.pas(21,64) Hint: Parameter "Shift" not used
C2Unit.pas(22,29) Hint: Parameter "Sender" not used
C2Unit.pas(23,27) Hint: Parameter "Sender" not used
C2Unit.pas(23,62) Hint: Parameter "Shift" not used
C2Unit.pas(23,80) Hint: Parameter "X" not used
C2Unit.pas(23,82) Hint: Parameter "Y" not used
C2Unit.pas(193,17) Error: Identifier not found "LineDDA"
C2Unit.pas(249,13) Error: Identifier not found "BeginPath"
C2Unit.pas(251,11) Error: Identifier not found "EndPath"
C2Unit.pas(252,15) Error: Identifier not found "FlattenPath"
C2Unit.pas(253,17) Error: Identifier not found "GetPath"
C2Unit.pas(256,11) Error: Identifier not found "GetPath"
C2Unit.pas(266,15) Error: Identifier not found "LineDDA"
C2Unit.pas(282) Fatal: There were 7 errors compiling module, stopping


Как посоветуете их исправить?

Добавлено спустя 11 минут 29 секунд:
Подключил в Uses Windows, те ошибки пропали!

Код: Выделить всё

uses
  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Windows;

НО! Появились следующие:

Код: Выделить всё

Hint: Start of reading config file C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.6.4 [2014/06/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling Canvas2.lpr
Compiling C2Unit.pas
C2Unit.pas(49,17) Error: identifier idents no member "Create"
C2Unit.pas(49,17) Fatal: Syntax error, ";" expected but "identifier CREATE" found


[ViruZ]

Случайно не эта програма http://delphisources.at.ua/load/iskhodniki/grafika/bezier_curves/7-1-0-1163#?
Попробовал сконвертировать, ругнулось на строку:

Код: Выделить всё

Windows.polybezier(image1.canvas.handle, BB, NB2+1);

Заменил в разделе Uses

Код: Выделить всё

LCLIntf, LCLType, LMessages

на

Код: Выделить всё

Windows

Заработало.
Хотя, если нужна кросс-платформа, этот вариант не подходит. Функция polybezier находится в модуле LCLIntf, но мне было лень разбираться с параметрами (компилятор ругнулся на несоответствие параметров функции).
P.S. Lazarus 1.2.4 FPC 2.6.4 WinXP SP3

[riv94]

Никак нет) Не этот исходник.. Поищу ссылочку, пришлю!