Habe das entsperren jetzt mit folgenden Ansatz ausprobiert, aber er zeigt immer wieder "inkompatible Typen" an, sowie "das private Symbol entsperren wurden deklariert, aber nie verwendet".
Delphi-Quellcode:
Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string);
var i:integer;
l:integer;
Begin
l:= length(wort);
i:=2;
repeat
delete(' ',wort,i);
i:= i + 2
until i > l;
end;