"Delphi" Programlama dilinde "Bir Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek" ile ilgili örnek kod aşağıda belirtilmiştir.

program CheckPalindrome;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function CheckIfPalindrome(const inputString: string): Boolean;
var
  reversedString: string;
  i: Integer;
begin
  reversedString := '';
  for i := Length(inputString) downto 1 do
    reversedString := reversedString + inputString[i];
  Result := SameText(inputString, reversedString);
end;

var
  inputString: string;
begin
  Write('String değer giriniz: ');
  Readln(inputString);
  if CheckIfPalindrome(inputString) then
    Writeln('Tersten aynıdır.')
  else
    Writeln('Tersten aynı değildir.');
  Readln;
end.