unit unitb;

interface

Procedure Testa;

implementation

{$R TestB.html}

Procedure Testa;

begin
end;

end.