String in einer DLL ändern funktioniert ohne Error geht ned

[sCrAPt]

HiH

Ich habe eine DLL in der folgendes steht:

Delphi-Quellcode:

function CharReplace(Text: String; Von: Integer; Zu:String): String; export;
var
  s: string;
begin
  s := Text;
  s[Von] := Zu[1];
  Result := s;
end;

exports
  charreplace index 3;

und mit einem anderen Programm rufe ich diese noch so schöne function auf:

Delphi-Quellcode:

function CharReplace(Text: String; Von: Integer; Zu:String): String; external 'strings.dll' index 3;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(charreplace('Hallo',2,'f'));
end;

Ausführen tut er es dann auch aber dann kommt gleich ein Error

Zitat von Projekt1:

Ungültige Zeigeroperation

Aber wenn ich CharReplace in Projekt1 hinzufüge kommt dieser Error nicht. Woran liegt das? Wie kann ich diesen Error entfernen?

, sCrAPt