Definir procedures e funções publicas

Uma nocao basica:

Toda unit tem uma secao [b:7b7cabd248]Interface[/b:7b7cabd248] e [b:7b7cabd248]Implementation[/b:7b7cabd248].

Todas as variavies, funcoes e procedures que estao sob a secao [b:7b7cabd248]Implementation[/b:7b7cabd248] soh sao ´enxergadas´ dentro da propria unit onde foram declaradas.

Todas as variavies, funcoes e procedures que estao sob a secao [b:7b7cabd248]Interface[/b:7b7cabd248] sao ´enxergadas´ por todas as unit´s que ´utilizam´ essa unit.

Ex.:

Unit1.pas:
interface
function Soma(a, b: integer): integer;

implementation
function Soma(a, b: integer): integer;
begin
Result := a + b;
end;

function Subtrai(a, b: Integer): Integer;
begin
Result := a - b;
end;
-----------

Unit2.pas:

interface
uses ....

implementation
uses Unit1;

Nesse pequeno exemplo, a [b:7b7cabd248]Subtrai[/b:7b7cabd248] soh poderah ser chamada dentro da propria Unit1, mas a funcao [b:7b7cabd248]Soma[/b:7b7cabd248] podera ser chamada tambem de dentro da Unit2, e qualquer outra Unit que contiver a Uni1 numa clausula [b:7b7cabd248]uses[/b:7b7cabd248].

:( Não sobrou nada para eu dizer..! :!:

ocara ai em cima mandou bem ....
nao tem mais o que dizer ....