>>817
何が言いたいかさっぱりわからんが、

function hoge(a :Integer;b:string) :string;
var
c :Integer;
begin
end;