[cloayza]

Esta funcion te podria ser de utilidad:

SysUtils.LastDelimiter(const Delimiters: string; const S: string): Integer;

Código Delphi [-]
Var
    s:String;
    f:string;
begin
        s:='225432 - 4445678 - 22/10/2010';
       f:=Copy(s,SysUtils.LastDelimiter('-',s)+1,Length(s));
       showmessage(f);
end;

Saludos...