Fórum Copy + Pos no delphi #432555

Tenho no banco um nome de patch com o arquivo junto, estou querendo remover o nome do arquivo deixando apenas o patch.

Fiz alguns exemplo mais não obtive resultado esperado, agradeço a ajuda

procedure TForm1.Button2Click(Sender: TObject);
var
nomearquivo : String;
copianome : String;
begin
nomearquivo := '\\probarsr\Producao\ICA\SEGUROS\SAIDAS\arquivo.818';
if (pos('SAIDAS', UpperCase(nomearquivo)) > 0) then
begin
copianome := Copy(nomearquivo,Pos('SAIDAS', UpperCase(nomearquivo)),Length(nomearquivo));
ShowMessage(copianome);
end;