用Edit.text显示Driver

Question

如何用edit2显示的盘符来赋给Driver程序如下:procedure TForm1.Button1Click(Sender: TObject);
var
  Result : integer;// 检测结果
  Driver : PChar; // 驱动器根目录
begin
  //Driver:=Edit2.text+'\';
  //Driver:='i:\' ;
  Result := GetDriveType( Driver ); // 检测驱动器类型
  Case Result of
    DRIVE_REMOVABLE : Edit1.Text := '可移动驱动器' ;
.
.
.procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Driv := OpenDialog1.FileName;
  Edit2.Text:=ExtractFileDrive(Driv);