关于自定义函数和函数中的var声明，函数无法正常返回参数值，救急呀(0分)

我在程序中定义了一个函数
function GetData(var Bufchar):Integer;
begin
....
//程序过程
end
procedure TMainForm.Button2Click(Sender: TObject);
var
ret:Integer;
buf:array[1..20] of char;
begin
ret:=GetData(@bug);
//编译提示函数声明不一致
end;

//如把函数GetData声明为
function GetData( Bufchar):Integer;
begin
....
//程序过程
end
程序可正常执行，但函数无法返回我要的字符串

procedure TMainForm.Button2Click(Sender: TObject);
var
ret:Integer;
buf:array[1..20] of char;
begin
ret:=GetData(bug);
//改为这样
end;