Un poco demorado para contestar, pero es que estaba ocupado con otras cosas
El problema es que hay que hacer algo con la conversion de tipos como se explica
en este post
Código Delphi
[-]
var
Buffer :Array [0..1000]of WideChar;
Direccion :PWideChar;
Addr :String;
begin
Addr:=edtCamino.Text + '\' + Tapiz;
Direccion:= StringToWideChar(Addr,Buffer,Length(Addr)+1);
StatusBar1.Panels[0].Text := WideCharToString(Direccion);
end;