procedure TForm1.BitBtn1Click(Sender: TObject);
var
    sapass,user,pass:string;
begin
   if Application.MessageBox('Şifreyi Değiştirmek İstiyor musunuz...?','UYARI',MB_YESNO)=IDNO then
      exit;

   sapass:= trim(Edit1.Text);
   user:= trim(Edit2.Text);
   pass:=trim(Edit3.Text);
   try
      ADOConnection1.Close;
      ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password='+sapass+';Initial Catalog=master;Data Source='+GetComputerName;
      ADOConnection1.Open;
   except
      Application.MessageBox('Bağlantı Hatası...','MESAJ',MB_OK);
      exit;
   end;
   try
      ADOQuery1.Close;
      ADOQuery1.SQL.Text:='EXEC sp_password @old=NULL,@new='''+pass+''',@loginame='''+user+'''';
      ADOQuery1.ExecSQL;
      Application.MessageBox('Şifreyi Değiştirildi...','MESAJ',MB_OK);
   except
      Application.MessageBox('İşlem Hatası...','MESAJ',MB_OK);
      exit;
   end;
end;