substr i str fra højre

Prøv LastDelimiter() den virker vist modsat.

Man kan godt lave en pos som virker fra højre, men måske du kan nøjes med:
LastDelimiter()

tak hejhej... hvis du vil have de 15 point så skriv et svar...

Svar

Måske ikke det smarteste eksempel, men det virker

procedure TForm1.Button1Click(Sender: TObject);
  Var
    HStr, SStr:  String;
    LHStr, LSStr: Integer;
    FPos: Integer;

begin
    HStr:='Dette er min hest, hvilken hest ?';
    SStr:='hest';
    LHStr:=Length(HStr);
    LSStr:=Length(SStr);
    FPos:=-1;
  REPEAT
    If Copy(HStr,LHStr-LSStr-1,LSStr)=SStr Then FPos:=LHStr-LSStr-1;
      Dec(LHStr);
  UNTIL (LHStr<LSStr) or (FPos>0);
      Label1.Caption:=IntToStr(FPos);
end;