[delphi.com.ar]

Hay muchas formas de hacer esto, una de ellas puede ser:

Código Delphi [-]
uses
  StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := RightStr(MiTexto, LastDelimiter('_', MiTexto)+1);
end;