关于一个写注册表的问题

[huliao]

我有一段程序要把Edit2中的值写到注册表中去
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Control Panel\International', False)
then Edit1.Text:=Reg.WriteString('sShortDate',Edit2.Text);
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
编译时老报错: Incompatible type: 'String' and 'procedure,uptyped pointer or untyped parameter'
我查了TRegistry的WriteString方法,后面的参数是String类型的为什么编译通不过呢?

BTW: inherited在这里有什么用,是必须的吗?

[kxy]

1)Edit.Text := Reg.WriteString('sShortDate',Edit2.Text);
WriteString是procedure ,哪有返回值?
2) finally
Reg.CloseKey;
Reg.Free;
inherited;//你加一个这个东西干吗？
end;

[huliao]

这是一段copy来的程序,没细看,所以也不懂为什么加inherited.