Перегрузка функции Delphi

[xxAlexxx]

Доброго времени суток!
Есть такое задание на зачет:
Используя перегрузку функций написать программу определения знака переменных разного типа
Задание сие нам, заочникам, дали на С++, но писать разрешили на чем знаете. Я знаю Pascal, работал на нем в Delphi. Как делается перегрузка функции на Делфе? В интернете нашел только краткий мануал по overload'y, но как им пользоваться - та и не понял. Помогите пожалуйста! Программа нужна до завтра/послезавтра.

[BDA]

http://delphibasics.ru/Overload.php
Пример (упс, на сайте том красивее пример):

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function equal(a, b: integer): boolean; overload;
    function equal(a, b: byte): boolean; overload;
  published
    function equal(a, b: real): boolean; overload;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.equal(a: Integer; b: Integer): boolean;
begin
  if a > b then
    result := true
  else
    result := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: real;
begin
  a := 10;
  b := 1;
  if equal(a, b) then showmessage('yes');
end;

function TForm1.equal(a: Real; b: Real): boolean;
begin
  if a > b then
    result := true
  else
    result := false;
end;

function TForm1.equal(a: Byte; b: Byte): boolean;
begin
  if a > b then
    result := true
  else
    result := false;
end;

end.

[xxAlexxx]

Спасибо большое! Принцип работы оверлоада понял.