Unit sin clases pero con funciones

[jlrbotella]

Hola:

Tengo un unit que no tiene clases, con un procedure. El unit se llama libreria y el procedure se llama dibujar. Cuando lo llamo desde otro unit, le indico en bloque use libreria, pero cuando le llamo desde una funcion del unit no la encuetra. Ej:

Código Delphi [-]
unit libreria;
 
interfaces
 
uses dialogs;
 
implementation
 
procedure dibujar;
begin
showmessage('hola');
end;
 
end.
 
//el otro unit
 
unit main;
 
interfaces
 
uses forms, libreria
 
type
TForm = class(TForm)
public:
procedure botonclick;
 
...
 
implementation
 
procedure Tform.botonclick;
begin
libreria.dibujar;
 
//Error compilador no encuentra la función dibujar del unit libreria.
end;
 
end.