Overload функций и процедур в Fpc Опции

[Ozzя]

как реализовать?

[volvo]

А обязательно перегружать здесь? По-моему, достаточно использовать параметр по умолчанию... Ну, если хочешь перегрузку - тогда:

{$mode OBJFPC}
interface
...
procedure PutPixel(X,Y: LongInt);
procedure PutPixel(X,Y: LongInt; Color: DWord);
...
implementation
...
procedure PutPixel(X,Y: LongInt);
begin ... end;

procedure PutPixel(X,Y: LongInt; Color: DWord);
begin ... end;