已经做好的窗口 想继承另个窗口的一些属性和功能 如何做

已经做好的窗口 想继承另个窗口的一些属性和功能 怎么做?
已经做好很多窗口   现在想继承另一个窗口的一些属性和功能     怎么做?

[解决办法]
private
form1: TForm1;
[解决办法]
父窗口
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
a :Integer;
procedure showmsg();virtual;
end;
子窗口
type
TForm3 = class(TForm2)
private
{ Private declarations }
public
{ Public declarations }
a :integer;
procedure showmsg;override;
end;