мне предлагали вот так сделать
Код:
procedure TfmLogin.bbConnectClick(Sender: TObject);
var Reg: TRegistry;
begin
Screen.Cursor : = crDefault;
Reg := TRegistry.Create;
if not Reg.KeyExists('Software\Staff') then
begin
WriteStrParam('Организация','Наша организация');
WriteStrParam('Код организации','');
WriteStrParam('Начальник организации (должность)','')
WriteStrParam('Начальник организации (Ф.И.О.) ','') ;
end;
Reg.Free;
WriteStrParam('База данных',laedDatabase.Text);
WriteStrParam('Пользователь',laedUser.Text) ;
lmikle: пользуемся тегами!
но прога жалуется на WriteStrParam. и я сам в общем то не знаю что это за ф-ия