OpenDialog.FileName тип

[Kronos913]

Итак, есть такая вот процедура:

Function FindDirDisk(const s1:string; var s2:string; const s3:string):boolean;
  var
   c:char;
   a:boolean;
begin
   a:=false;
   c:='C';
   repeat
    If DirectoryExists(c+s1) then begin
     s2:=c+s1+s3;
     c:='Z';
     a:=true;
    end;
    inc(c);
   until c>'Z';
   FindDirDisk:=a;
end;

Пытаюсь ее вызвать:

If FindDirDisk(dns1, opendialog1.FileName, '\*') then main;

(dns1 - константа типа string, main - процедура)

Ошибкой отмечает "opendialog1.FileName" при вызове процедуры

[Kronos913]

После многих попыток разобрать, возник следующий вопрос

Если в процедуре есть в параметрах (var s:string), то как тогда сделать так, чтобы при вызове процедуры, напрямую выводить переменную в свойства объекта? Edit.text, Label.Caption, OpenDialog.FileName ?

[northener]

Копировать в переменную типа string и передавать именно эту переменную.