请问高手！

[luocr]

我也有一个问题想问问大家
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SelectDirectory('请选择文档路径','',stDir) then//
/总是说这行出错，[Error](120): Types of actual and formal var parameters must be identical///我就搞不明白
Edit1.Text := stDir;
SetFocus;
end;
//stDir已经定义了