Bu tip fonksiyonlar nasıl yazılır?

[z]

function GeriÇek (X,Y,N:integer):booelan;
begin
   .......
end;


Şeklinde bir fonksiyon yazdım.

Eğer N=0 ise fonksiyon sadece Y değerini kullanarak işlem yapıyor.

Eğer N=1 ise fonksiyon X ve Y değerini kullanarak işlem yapıyor.

Bu şekilde kullanım kafa karıştırıcı ve N kullanmak yerine aşağıdaki gibi tek parametre yada çift parametre kullanma durumuna göre işlem yapsın istiyorum.

function GeriÇek (Y:integer):booelan;

function GeriÇek (X,Y:integer):booelan;

Bu fonksiyonu nasıl yazarım açıklayabilirmisiniz?

[Klein]

overload fonkksiyonlar

var
  Form2: TForm2;

implementation

{$R *.dfm}

Function Topla(A:Integer):Integer;overload;
begin
 Topla :=  A;
end;

Function Topla(A: Integer; B:Integer ):Integer;overload;
begin
 Topla :=  A+B;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Caption := IntToStr(Topla(2));
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Caption := IntToStr(Topla(2, 4));
end;

end.

[z]

Bu kadar kolaymıymış. Sağolasın.