Zmiana nazwy

jest taki kodzik do zmiany nazwy folderu :

procedure TForm1.Button1Click(Sender: TObject);
var R : TSHFileOpStructA;
begin
with R do
begin
Wnd:=Handle;
wFunc:=FO_RENAME;
pFrom:= Edit1.Text + #0;
pTo:= Edit1.Text + #0;
fFlags:=FOF_NOCONFIRMMKDIR;
end;
if SHFileOperation(R)0 then
ShowMessage('Błąd')
end;

i jak zrobić żeby ścieżke do folderu wyczytywał z Edit1 ??
bo tak jak teraz jest w kodzie to lipka ... oczywiście do uses dodałem ShellApi.
[stuk]

procedure TForm1.Button1Click(Sender: TObject);
var 
  R : TSHFileOpStructA;
begin
  with R do
  begin
    Wnd := Handle;
    wFunc := FO_RENAME;
    pFrom := PChar(Edit1.Text);
    pTo := PChar(Edit1.Text);
    fFlags := FOF_NOCONFIRMMKDIR;
  end;
  if SHFileOperation(R) <> 0 then
ShowMessage('Błąd')
end;

Stosuj tag delphi, jeżeli nie chcesz, aby zżerało znaczki < i >