Saber si una cadena termina con x frase

[cloayza]

Otra forma de hacerlo...

Código Delphi [-]
function EstaAlFinal(Buscado, Texto: string): Boolean;
begin
     //Debes incluir la unit StrUtils.pas.
     Result:= RightStr(Texto,Length(Buscando))=Buscando;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s, t:string;
begin
      // Usando variables
      s:= 'Pedro y Juan están programando en casa';
      t:= 'programando en casa';
    
      if EstaAlFinal(t, s) then
         ShowMessage('Encontrada al final del texto') // muestra este mensaje
      else
         ShowMessage('No se encuentra al final del texto');
end;

Saludos