Hola bulc.
Declara la cabecera de función en la sección de interface de la unidad:
Código Delphi
[-]
unit x;
interface
uses ...;
...
procedure Toca(xFile: PChar);
...
implementation
procedure Toca(xFile: PChar);
begin
...
end;
Esta unidad deberá incluirse en las unidades donde utilices el procedimiento, de ese modo será visible para cada una de ellas.
Saludos.