看看这段创建公用模块的代码应该写在那里？

yhm:char;
qx:tinyint;
functionTmainform.getnettime:string;
begin
with tquery.Create(nil)do
begin
try
Close;
SessionName:=mainform.Database1.SessionName;
DatabaseName:=mainform.Database1.DatabaseName;
SQL.Clear;
SQL.Add(select getdate()as aa');
Open;
result:=fieldbyname('aa').AsString;
finally
Free;
end;
end;
end;
麻烦大家了，您辛苦一下！我做毕业设计阿