[aaa]

Вот код):
procedure TForm3.BitBtn1Click(Sender: TObject);

Код:

begin
 if form3.simpleDataSet1.CanModify = true then
 begin
if MaskEdit1.Text<> Form3.SimpleDataSet1.FieldByName('password').AsString then
begin
 ShowMessage('Старый пароль не верен');
 Abort
 end
 else
  begin
 if MaskEdit2.Text<>MaskEdit3.Text then
   begin
   ShowMessage('Потверждение не верно');;
   Abort
 end
     else
     Begin
 SimpledataSet1.Edit;
 SimpledataSet1.Append;
 SimpledataSet1.Insert;
 Form3.SimpleDataSet1.FieldByName('password').AsString:=MaskEdit3.Text;
 Form3.SimpleDataSet1.FieldByName('login').Value:= 'Admin';
 Form3.SimpleDataSet1.FieldByName('id').Value:= '1';
 SimpleDataSet1.Post;
  

   end;
      end;
end;
   end;
end.

Админ: Пользуемся тегами для оформления кода!