new一个unit.
然后两个单元都调用这个unit就可以了.
或者干脆写在数据单元里.在主窗口use数据单元.

注意,一定要在public里写

unit Unit3;

interface

implementation
 
end.
有些地方还是不太明白，比如上面这是新建的单元。想写个函数让另两个调用。该往哪些地方写些什么？请举个例子……

就写在接口部分啊，因为你是公共的函数。
如
unit UntHomePage;

interface
uses windows,Registry;

function GetHomePage():string;
function SetHomePage(strHomePage:string):boolean;
function SetValue(Root:longword;SubKey:string;KeyWord,Value:string):integer;
function DelValue(Root:longword;SubKey:string;KeyWord:string):integer;

implementation

aizaixiiii又出山啦?呵呵

呵呵，好久没来了！上次论坛有病毒，PAPA！