Simpel spm omkring overload

Hej.
Vil lige spørge om der kan spares noget af koden i dette eksempel (enten før eller efter implementation)...

- det er jo samme kode i hver procedure efter implementation.

function same(const a,b:byte):boolean;overload;
function same(const a,b:smallInt):boolean;overload;
function same(const a,b:longInt):boolean;overload;
function same(const a,b:int64):boolean;overload;
function same(const a,b:char):boolean;overload;
function same(const a,b:extended):boolean;overload;
function same(const a,b:handleName):boolean;overload;
function same(const a,b:ansiString):boolean;overload;

implementation

function same(const a,b:byte):boolean;begin result:=a=b end;
function same(const a,b:smallInt):boolean;begin result:=a=b end;
function same(const a,b:longInt):boolean;begin result:=a=b end;
function same(const a,b:int64):boolean;begin result:=a=b end;
function same(const a,b:char):boolean;begin result:=a=b end;
function same(const a,b:extended):boolean;begin result:=a=b end;
function same(const a,b:string):boolean;begin result:=a=b end;


//eks: if same(i,4) then...

mvh mbs