Insert/Delete mit PChar

[Shaman]

Hallo zusammen

Ich habe folgende zwei Funktionen:

Delphi-Quellcode:

function InsertBuffer(var Dest: PChar; const DestSize: Integer;
                      const Buffer: PChar; const BufferSize: Integer; const Index: Integer): Integer;
var
  S: string;
begin
  SetString(S, Dest, DestSize);
  FreeMem(Dest, DestSize);
  Insert(Buffer, S, Index+1);
  Result:= Length(S);
  GetMem(Dest, Result);
  Move(S[1], Dest^, Result);
end;

function DeleteBuffer(var Dest: PChar; const DestSize: Integer; const Index, Count: Integer): Integer;
var
  S: string;
begin
  SetString(S, Dest, DestSize);
  FreeMem(Dest, DestSize);
  Delete(S, Index+1, Count);
  Result:= Length(S);
  GetMem(Dest, Result);
  Move(S[1], Dest^, Result);
end;

Wie lassen sich diese optimieren? Vorallem die Umwege über Insert und Delete gefallen mir nicht...

Gruss
Shaman