Zeichen an einer Position Extrahieren

[bitsetter]

Eine spezielle Stringfunktion ist mir dazu nicht eingefallen, kann ja sein, dass jemand eine kennt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemoText, s: AnsiString;
  Position: integer;
begin
  Memo1.Text:= '234564345347456445';//Demo
  s:= 'xy';
  Position:= 10;//Position der Zeichen
  MemoText:= Memo1.Text;
    if Position+ length(s)<= length(MemoText)+ 1 then
    begin
    copymemory(@MemoText[Position], @s[1], length(s));
    Memo1.Text:= MemoText;
    end;
end;