1 files changed, 10 insertions, 10 deletions
diff --git a/UMounterPrefs.pas b/UMounterPrefs.pas
index 6a08454..6a2f3cf 100644
--- a/UMounterPrefs.pas
+++ b/UMounterPrefs.pas
@@ -321,10 +321,10 @@ begin
   end;
   Item := ListView.Selected.AsPointer(3);
   DisplayTextEntry.Text := Item.DisplayText;
-  MountPointEntry.Text := AnsiToUTF8(Item.MountPath);
-  MountDeviceEntry.Text := AnsiToUTF8(Item.Device);
-  MountCommandEntry.Text := AnsiToUTF8(Item.MountCommand);
-  UmountCommandEntry.Text := AnsiToUTF8(Item.UmountCommand);
+  MountPointEntry.Text := StrToUTF8(Item.MountPath);
+  MountDeviceEntry.Text := StrToUTF8(Item.Device);
+  MountCommandEntry.Text := StrToUTF8(Item.MountCommand);
+  UmountCommandEntry.Text := StrToUTF8(Item.UmountCommand);
   DeviceTypeOptionMenu.ItemIndex := Item.DeviceType;
   if FUseGnomeIconEntry then IconEntry.Filename := Item.IconPath;
 end;
@@ -401,7 +401,7 @@ end;
 procedure TFMounterPrefs.MountPointEntryChanged(Sender: TObject);
 begin
   if Assigned(ListView.Selected) and Assigned(ListView.Selected.AsPointer(3)) and (not UseFSTabDefaultsCheckBox.Checked) then begin
-    TMounterItem(ListView.Selected.AsPointer(3)).MountPath := UTF8ToANSI(MountPointEntry.Text);
+    TMounterItem(ListView.Selected.AsPointer(3)).MountPath := UTF8ToStr(MountPointEntry.Text);
     ListView.Selected.SetValue(1, MountPointEntry.Text);
   end;
 end;
@@ -409,7 +409,7 @@ end;
 procedure TFMounterPrefs.MountDeviceEntryChanged(Sender: TObject);
 begin
   if Assigned(ListView.Selected) and Assigned(ListView.Selected.AsPointer(3)) and (not UseFSTabDefaultsCheckBox.Checked) then begin
-    TMounterItem(ListView.Selected.AsPointer(3)).Device := UTF8ToANSI(MountDeviceEntry.Text);
+    TMounterItem(ListView.Selected.AsPointer(3)).Device := UTF8ToStr(MountDeviceEntry.Text);
     ListView.Selected.SetValue(2, MountDeviceEntry.Text);
   end;
 end;
@@ -417,14 +417,14 @@ end;
 procedure TFMounterPrefs.MountCommandEntryChanged(Sender: TObject);
 begin
   if Assigned(ListView.Selected) and Assigned(ListView.Selected.AsPointer(3)) and (not UseFSTabDefaultsCheckBox.Checked) then begin
-    TMounterItem(ListView.Selected.AsPointer(3)).MountCommand := UTF8ToANSI(MountCommandEntry.Text);
+    TMounterItem(ListView.Selected.AsPointer(3)).MountCommand := UTF8ToStr(MountCommandEntry.Text);
   end;
 end;
 
 procedure TFMounterPrefs.UmountCommandEntryChanged(Sender: TObject);
 begin
   if Assigned(ListView.Selected) and Assigned(ListView.Selected.AsPointer(3)) and (not UseFSTabDefaultsCheckBox.Checked) then begin
-    TMounterItem(ListView.Selected.AsPointer(3)).UmountCommand := UTF8ToANSI(UmountCommandEntry.Text);
+    TMounterItem(ListView.Selected.AsPointer(3)).UmountCommand := UTF8ToStr(UmountCommandEntry.Text);
   end;
 end;
 
@@ -516,8 +516,8 @@ begin
       with TMounterItem(InternalMounterList[i]) do begin
         ListItem := ListView.Items.Add;
         ListItem.SetValue(0, DisplayText);
-        ListItem.SetValue(1, ANSIToUTF8(MountPath));
-        ListItem.SetValue(2, ANSIToUTF8(Device));
+        ListItem.SetValue(1, StrToUTF8(MountPath));
+        ListItem.SetValue(2, StrToUTF8(Device));
         ListItem.SetValue(3, InternalMounterList[i]);
         RefreshIcon(i);
       end;