Классы

[TeleSky]

Ну да. Ответа нет. Программа сразу выключается.

[Serge_Bliznykov]

для компиляции Вашего исходника не хватало библиотеки..
поэтому дописал одну функцию...
Проверил. Вроде всё работает.
Ошибок я лично не увидел...

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils {, StrUtils};
type
  Tpalin = class
  private
    slovo: string;
    constructor create;
    destructor destroy;
    procedure setSlovo(x: string);
    function getSlovo: string;
    function analyze: boolean;
    function reverseString(S : string) : string;
  end;
//================================================== ===========================

procedure Tpalin.setSlovo(x: string);
begin
  self.slovo := x;
end;
//================================================== ===========================

function Tpalin.getSlovo: string;
begin
  result := slovo;
end;
//================================================== ===========================

constructor Tpalin.create;
begin
end;
//================================================== ===========================

destructor Tpalin.destroy;
begin
end;
//================================================== ===========================

function Tpalin.analyze: boolean;
begin
  if (self.getSlovo = reverseString(self.getSlovo)) then
  begin
    result := true;
  end
  else
  begin
    result := false;
  end;
end;
//================================================== ===========================
function Tpalin.reverseString(S: string): string;
var sTemp : string;
    i : integer;
begin
  sTemp := '';
  for i:=Length(s) downto 1 do STemp := STemp + Copy(S,i,1);
  reverseString := sTemp;
end;
//================================================== ===========================

var
  palin: Tpalin;
  input: string;

begin
  palin := Tpalin.create();

  write('Vvedite slovo dlya analiza: ');
  readln(input);
  palin.setSlovo(input);

  if (palin.analyze) then
  begin
    writeln('Palindrom');
  end
  else
  begin
    writeln('Ne palindrom');
  end;
  palin.Free();
  readln;
end.