"Delphi" Programlama dilinde "Bir Stringten İlk N Karakteri Kaldırma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

program RemoveChars;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function RemoveChars(const word: string; n: Integer): string;
begin
  Writeln('Orjinal String: ', word);
  Result := Copy(word, n+1, Length(word)-n);
end;

begin
  Writeln('Stringten Karakter Kaldırma');
  Writeln(RemoveChars('yazilim', 3));
end.