"Delphi" Programlama dilinde "Bir Stringin İlk Orta ve Son Karakterini Alma Örneği" ile ilgili kod örneği aşağıdadır.

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  str1, res: string;
  l, mi: integer;
begin
  str1 := 'Yazilim';
  WriteLn('Orjinal String: ', str1);

  res := str1[1];

  l := Length(str1);

  mi := l div 2;

  res := res + str1[mi + 1];

  res := res + str1[l];

  WriteLn('Yeni String: ', res);
end.