unit unita;

interface

Procedure Testa;

implementation

{$R testa.html}

Procedure Testa;

begin
end;

end.