Como usar procedure en otro Unit

[ecfisa]

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.